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DEXXA 

PRIX SOURIS 


SOURIS 

TAPIS 

PIEGE à SOURIS 

MORCEAU 
de FROMAGE ? 




RANGEMENT 
100 S 14 


Sauvegardez votre travail 


automatiquement 


1 x logiciel AccuSaver 
est indu. 


Montant total dupon 


386-sx 16Mhz - 0 w/s -1 Mo RAM ext. 2 Mo 
Landmark : 21,4 - Norton : 18,6 
Lecteur : 5"l/4 - 1,2 Mo ou 3 w l/2 - 1,44 Mo 
Disque-dur : 40 Mo / 28 ms MFM 
Affichage : Carte EGA 4* munit. Couleur 14* 


286-12Mhz-Owfe-lMo RAM ext. 4 Mo 
Landmark : 15,8 - Norton : 13,3 
Lecteur : 5"l/4 - 1,2 Mo ou 3" 1/2 - 1,44 Mo 
Disque-dur : 40 Mo / 28 ms MFM 
Affichage : Carte EGA 4- monit. Couleur 14 


VERSION 

FRANÇAISE 




Chaque configuration est livrée en standard avec : 

1 clavier 102 touches, 2 ports Série, 1 port parallèle, 1 souris DEXXA" compatible Microsoft®, 
le système d'exploitation Ms-DOS® (version française) 330 ou 4.01 installé. 

1 an de Garantie pièces et M.O, par retour en atelier sous emballage d'origine. 



4L3 


Adressez ce bon de commande accompagné de votre règlement à 
l’adresse ci-contre en précisant vos nom et adresse. 

Quantité 

Désignation 

Montant 


• 



Total TTC 




pas i8 

5, rue J.F. Lépine 
75018 PARIS 
S 42 05 96 66 
























































Spécial listings CPC 

PAO. 


HISTOIRE D'EAU. 

.13 

SIMPLEX 3D. 

.22 

TRON 90. 

.30 

JOHNNY II, le retour. 

.36 

EXPLOR. 

.45 

THE BOSS. 

.49 

SPACE THIEF. 

.56 

AMSAISIE V.2. 

.64 

Petites annonces. 

.65 
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Exceptionnel 

DES CENTAINES 
DE LOGICIELS 
GRATUITS 


ur le 36 15 MICROMAG, vous trouverez des 
centaines de logiciels à télécharger! Des freeware, 
des démos, des images et surtout les listings 
publiés par Micro Mag. 

Les listings du journal sont disponibles sur le 
serveur. Il suffit d’un minitel, d'un câble et d’un 
logiciel de téléchargement. Fini les fautes de 
frappe : tous les programmes sont vérifiés avant 
d’être mis sur le serveur. 





ous raccordez l'ordinateur à votre minitel via le 
câble . Vous chargez Quicktel et vous 
sélectionnez le téléchargement. A partir de là, 
tout est automatique, ou presque. Si vous 
possédez un câble de liaison, il suffit 
normalement de commander Quicktel. Attention, 
le brochage des câbles n'étant pas toujours 
identique, le résultat n'est pas garanti. Dans le 
doute, commandez cable et logiciel. 

















MICROMAG 



POUR TELECHARGER 
DES CENTAINES DE 
LOGICIELS 
(JEUX, UTILITAIRES, 
DEMOS, LISTINGS 
MICRO-MAG...) 
COMMANDEZ 
LE KIT 



Ecrire 


L'Annuaire 
les BALS 




nuo r 


w i 


|r» r .'*■> 1 < 


Mm 



ous êtes bloqué au niveau 4 de Chaos Strikes 
Back ? Laissez un message dans la rubrique 
Help et répondez aux questions des autres 
joueurs. Révélez enfin le secret pour avoir 837,5 
vies dans Operation Thunderbolt. Dialoguez 
directement entre passionnés, sans aucun 
intermédiaire. Posez vos questions et indiquez 
les tuyaux que vous connaissez. C'est votre 
rubrique, c'est vous qui devez la faire vivre. 


Dialogue / Boîtes aux lettres 



ous avez une remarque à faire à l'équipe de 
Micro Mag? Une proposition d'article? Laissez 
un message à la rédaction sur le serveur. Entrez 
en contact direct avec votre magazine. 
Construisez le réseau des fanas de la micro, avec 
des gens ayant les mêmes intérêts! Vous pourrez 
échanger des routines, etc. Ce serveur doit avant 
tout être le vôtre! Dialoguez sur le 36 15 
MICROMAG. 


De chez vous avec votre 
minitel, votre ordinateur et le 
kit de téléchargement câble + 
disquette) 24h/24 des 
centaines de softs à votre 

disposition. 

BON A DECOUPER 

et à adresser à Laser Presse service Télématique 
5/7 rue de l'Amiral Courbet 94160 SAINT-MANDE 

□ OUI, je désire recevoir le kit complet de téléchargement 
(câblc+disqucttc) au prix spécial de 149 francs.(Jc joins un 
chèque bancaire ou postal à l'ordre de Laser Presse) 

□ Je possède déjà un cible ou un modem je désire 
uniquement la disquette Quicktcl de téléchargement au 
prix de 29 francs sculcmcnt.(Jc joints un chèque bancaire 
ou postal ù l'ordre de Laser Presse) 

Précisez le type de machine que vous possédez : 

□ CPC 464(disque(tc) QAMIGA 500/1000 □ ATARI ST^TF^TE 

□ CPC 604/6128 QAMIGA 2000 □ PC ET COMPATIBLES 


(Merci d'écrire en lettres MAJUSCULES G2) 


NOM:. 

.PR PNOM; 

ADRESSE:. 

r • • • • •, ’ ' i.'j 

* • • • • • • 


CODE POSTAL :. 

.VILLE :. 

















PROGRAMMATION 

Soyez à la page ! 

PAO (6128) 


Par ce logiciel de PAO (Pagination 
Assistée par Ordinateur) relativement 
performant, faites concurrence à 
Micro-Mag. Dans l'attente de vos 

Fanzines... 


D oté d‘un redéfinisseur de 
caractères. Il permet 
toutes les fantaisies 
d'écriture et intègre des images 
à vos textes. Toutefois, 
quelques remarques : du fait 
de l’utilisation des Banks 
mémoire, il ne fonctionne que 
sur les modèles 6128. Lors des 
chargements, les noms de 
fichiers doivent être spécifiés 
en majuscules. 

Menu général 

• Tab: accès au texte ou retour 
au menu général. 

• Copy: confirmation de l'op¬ 
tion choisie, valable également 
dans les menus secondaires. 

• Flèches: sélection des diffé¬ 
rents menus. 

Texte 

Le jeu de caractères est celui 
préalablement sélectionné par 
l’option adéquate (par défaut, 
caractères courants). 

• Tab; entrée dans les menus 
d’édition. 

• Copy: transparence, réécritu¬ 
re par dessus un caractère sans 
l’effacer. Très pratique pour 
souligner. 

• Control/X: écriture en vidéo 
inverse, retour au mode 
normal. 

• Flèches: elles déplacent le 
curseur dans toute la page; 
celle-ci est composée de deux 
écrans. Ainsi, le curseur dépas¬ 
sant le bas ou le haut de 
l’écran, décale la page en fai¬ 
sant, selon le cas, disparaître la 
première ou dernière ligne. 
Ces dernières ne sont pas per¬ 


dues mais sauvegardées en 
mémoire. 

• Shift/droite: insère un carac¬ 
tère (un espace). Le dernier de 
la ligne situé à l’extrémité de 
l’écran est perdu. 

• Control/flèches: place le cur¬ 
seur en haut, en bas, à la fin ou 
au début de la ligne courante. 

Sprites 

• Capturer: récupère un sprite 
sur une image précédemment 
créée au moyen d'un autre 
logiciel (OCP Art Studio , par 
exemple). Le nom du fichier 
doit figurer sous la forme 
«Nom .SCR». N’entrez que 
les 8 premières lettres du nom, 
l'extension est automatique¬ 
ment rajoutée. 

Une fenêtre apparaît en bas et 
à gauche de l’écran. Shif- 
t/flèches permet de modifier 
sa taille, et les flèches seules 
autorisent son déplacement 
(annulation par Tab). Capturez 
le sprite cadre par Copy. Lors 
de la capture du sprite, le 
mode écran est demandé pour 
le retransformer en mode 2. 

• Placer: positionne un sprite 
précédemment capturé. Celui- 
ci peut être placé plusieurs fois 
car conservé en mémoire jus¬ 
qu’à ce qu’une fenêtre ou un 


autre sprite soit capturé. Le 
sprite qui apparaît en haut à 
gauche de l'écran se déplace 
au moyen des touches flé¬ 
chées. Copy valide sa position 
et Tab l'annule. 

• Recadrer: réaffiche le sprite 
en haut à gauche de l’écran 
afin de le resauvegarder plus 
petit ou plus grand. On évite 
ainsi de recharger l’image où il 
a été capturé. 

Page 

• Effacer page: réfléchir avant 
d’agir... 

• Sauver page (dise): sauve la 
page sur la disquette placée 
dans le lecteur sélectionné. Le 
nom doit être composé de 8 
lettres maximum (un Bip sono¬ 
re signale tout dépassement). 
Le programme sauvegarde 
deux images écran de 17 Ko 
avec les extensions «.PA1» et 
«.PA2». 

• Charger page (dise): charge¬ 
ment d’une page, comme on 
peut s’en douter. 

• Sauver page (mem): sauve¬ 
garde une page en mémoire, 
afin de tenter des modifica¬ 
tions sans que l’original soit 
modifié. Undo permet de la 
récupérer en cas d’erreur. 
Attention: si vous décalez 


l’écran, les lignes disparues 
seront sauvegardées en 
mémoire. 

Caractères 

• Sélectionner le jeu: sélec¬ 
tionne le jeu d’écriture courant 
(le jeu n°l est celui utilisé par 
le logiciel). Il peut y en avoir 
jusqu’à 9 simultanément en 
mémoire, à vous de savoir les 
gérer. Seuls les caractères 32 à 
126 sont utilisables. 

• Charger le jeu: charge le jeu 
précédemment sélectionné. 
Celui-ci aura été préalable¬ 
ment créé par le second pro¬ 
gramme. 

Fenêtres 

• Définir: définition d’une 
fenêtre dans laquelle il sera 

4 

possible d'agir avec les options 
décrites ci-dessous. L’édition 
de la taiilo/place de la fenêtre 
est identique à celle utilisée 
pour les sprites. 

• Capturer: idem que pour la 
capture des sprites. 
Positionnez la fenêtre par l’op¬ 
tion “Placer» du menu Sprites. 
Cette option permet de reco¬ 
pier plusieurs fois les mêmes 
présentations. 

• Effacer: comme son nom 
l’indique... 

• Zoom Hauteur: effectue un 
agrandissement vertical de 2 à 
9 sur la fenêtre cadrée. 

• Zoom Largeur: idem, mais 
horizontal. 

Divers 

• Undo: comme dans le plu- 





Page définitive 7Ï&; 


»o* da jsueur : 
No« du ^ersonnige; 


fe* do ft: 
Cltit» : 


N \_J l«w:. 


fcrcüit: 
Nivmq: ~~ 


_ COMPETENCES 

T or et _ 

y"V 

jwj Intfliigence _ 

iy; Sagfsse __ 

:CJf Dtxterit* __ 


w .-| Constitatio» 

i 

% 

Charisme 

Touches regui$K 
J S 7 6 


CHANCES DI SAUVEGARDE 

Hlimfhtm i* U ft«rt 
•Hwtt* Mfiw 
WrUi«rti«/hnlïjit 
Suffi» 4» ànjre 
StWhtnj MfifVfs 
i«»s feftots 


Premier écran 


s fftcina: , immu— ^ 

ata fWPtwwii w 

! iSS^-Sui 

ïfplKamt silmclw . x . 


'•*'■' Second écran 

• /, / 

. "X\ i .*?’•••• •*• . 

• # • . • * 

• û *</•; ,% • *t 

: : ' V. * ’ ‘ V. •'•'•*»;• s 


Mon du joueur : 
Mon du personnage: 


w O 


tlon du HD: 
Classe : 


Langues:. 


Moralité: 
Niveau: □ 


__ COMPETENCES CHANCES DE SAUVEGARDE 


f ) Force 
r~'\ 

\._.J Intelligence 
(...) Sagesse 

C .) Dexterite 

r S 

\.J Constitution 
CJiarisne 

Touches reguises: 
3 8 7 G 1 


- ) Poison/Ragon de la nort 

r\ 

_ • Baguette nagique 

- Petrification/Paralysie 

_ é J Souffle de dragon 

— ‘...y Sorts/Datons nagiques 

_ [-.yi Bonus Magiques 

-3 2 10 -1 -2 -3 -1 -S -G -7 -0 -9 


Dons spéciaux: 


Nivrau de sort 

flcnürc de sorts 


Bris de serrures . 

IWouvrir/retirer les piégés 

Vol a la tire .. 

Deplacenent silencieux . 


ilÆI Acquis: 
Necess: 


Trésors 


/. Escalade de parois a nie 
*/ Se cacher dans les onbres 
V. Détection de sons . 


! '.mmmænii uiüiUji'ijiEinriTiH 


part des logiciels de dessin... 

• Vue générale: vue d’en¬ 
semble en réduction des deux 
pages écran. 

• Imprimer: les caractères de 
contrôle sont ceux de la DMP 
2000 de chez Amstrad. «Esc» 
stoppe l'impression. 

• Sélectionner lecteur lecteur 
A ou B pour les chargements 
ou sauvegardes. 

Dessin 

• Lignes continues: un pixel 
s'affiche au milieu de l'écran 
(si c'est la première fois) ou à 
sa dernière position. Les 
flèches du curseur le dépla¬ 
cent, et Copy le valide (point 
de départ de la ligne à tracer 
par les flèches). Le dernier 
point de la ligne est le pre¬ 


mier de la suivante. 

• Lignes séparées: idem, avec 
possibilité do situer le premier 
point de chaque nouvelle 
ligne. 

• Cercles: positionnez le pixel 
figurant le centre, appuyez sur 
Copy et modifiez le rayon du 
cercle affiché par les touches 
fléchées haut/bas. Validez par 
Copy . 

• Cadre, tracé d’un cadre ou 
rectangle. 

• Pixel: place des points à 
l'écran. 

L’éditeur de caractères 

La totalité des commandes de 
ce second programme figure à 
1 écran. Lors du chargement 
d’une police, il convient d’en 
préciser l’extension (exemple. 


«Nom .CHR»). A la sauvegar¬ 
de, l’extension obligatoire 
«.CHR» rend le fichier compa¬ 
tible avec PAO. Ceci permet 
de charger des polices créées 
avec d'autres logiciels et de les 
sauvegarder sous le format 
PAO (770 octets). 

Sauvegarde 

Sauvez sous le nom évident de 
«PAO» le premier listing char¬ 
geur, puis l’éditeur de carac¬ 
tères sous le nom de «PAOl». 
Entrez ensuite par Amsaisie 
V.2 en vous reportant à son 
mode d'emploi, les codes 
hexadécimaux du programme 
principal. L’adresse d’implan¬ 
tation plutôt basse, nécessite la 
modification préalable de 
notre utilitaire maison. 


• Ligne 10 : OPENOUT”d” : 
MEMORY &BB7 : CLOSEOUT 

• Ligne 20 : supprimez le 
MEMORY &2000 

Après lancement, spécifiez 
BB8 comme adresse de début 
et sauvegardez le programme 
binaire sous le nom «PAO». Il 
est vivement conseillé de 
morceler votre travail en plu¬ 
sieurs fichiers (PI, P2, etc.). 
Ces derniers devront ultérieu¬ 
rement être chargés à la suite 
(LOAD "PI" : LOAD "P2”, etc.) 
après la commande évoquée 
ci-dessus (ligne 10) et sauve¬ 
gardés ainsi dans un fichier 
unique: 

SAVE " PAO”,b, &BB8, &164D 

Patrick Joniec 
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************************ 

*** 

*** Pagination Assistée 
*** par Ordinateur 

*** Menu principal 

** * 

**♦ P.JONIEC - 1989 

*** 

************************ 


* * * 
*** 
** * 
*** 
** * 
* * * 
* * * 
*** 
* * * 


100 MODE 1 :LOCATE 1,12:INK 0,0:IN 
K 1,15:INK 2.16:INK 3,6:POKE &B72 
F.&C3:BORDER 0 

110 PRINT" 1) Editeur de carac 


teres 


120 PRINT 

130 PRINT” 2) Pagination" 

140 PRINT:PRINT" Votre choix 

?.. 

150 a$=INKEY$: IF a$o"l" AND a$<> 
"2" THEN 150 

160 IF a$="l" THEN RUN "PAOl 
170 OPENOUT "d": MEMORY 2999:LOAD 
"pao.bin" .3000:MODE 2:PEN 1 : INK 1 
.26:PAPER 0:CALL 3000 


[1051] 

[51] 

[1447] 

[1067] 

[1246] 

[51] 

[1788] 

[51] 

[1051] 

[4140] 


[2379] 

[361] 

[1522] 

[2524] 

[1388] 

[1310] 

[4552] 


*************************** 
*** *** 

*** P . A . O *** 

** ** 

** Editeur de caractères ** 
** ** 

*** P.JONIEC - 1989 *** 

*** *** 

*************************** 

100 SYMBOL AFTER 32 
110 adrch=HIMEM+l 
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120 long=768 
130 MODE 1 

140 INK 0.0:INK 1,26:BORDER 0 : INK 
2.15:INK 3.6 

150 WINDOW#l.1.33.1.13:PAPER#1,0 
160 WINDOW#2,18.38,24,24:PAPER#2. 
3 :PEN#2,1:CLS#2 

170 WINDOW#3,15.40,15.22:PAPER#3, 
3 :PEN#3,1 :CLS#3 

180 PRINT#3:PRINT#3," ” : CHR$<24 

0);” Copy= pixel on/off" 

190 PRINT#3. " '* ;CHR$(242) ; " ";CH 

R$(243):" = edit chr" 

200 PRINT#3," ";CHR$(241):” T 

ab = exit edit" 


210 PRINT#3 

220 PRINT#3," C=charger des carac 
teres" 


230 PRINT#3,” S=sauver des caract 


eres 

240 FOR x=8 TO 544 STEP 32:PLOT x 
.200,2:DRAW x,392:NEXT 
250 FOR y=200 TO 392 STEP 32:PLOT 
8,y : DRAW 520,y:NEXT 
260 f=32:FOR y=2 TO 12 STEP 2 
270 FOR x=2 TO 32 STEP 2 
280 IF f<128 THEN LOCATE#l.x,y : PR 
INT#1,CHR$(f):f=f+l 
290 NEXT x.y 

300 FOR X=14 TO 162 STEP 18:PLOT 
X.46:DRAW X,188:NEXT 


[1051] 

[51] 

[488] 

[104] 

[1373] 

[104] 

[1788] 

[51] 

[1051] 

[1296] 

[773] 

[645] 

[506] 

[1485] 

[2328] 

[2610] 

[3155] 

[3852] 

[2273] 

[1428] 

[316] 

[3191] 

[3423] 

[4752] 

[2671] 

[825] 

[975] 

[2026] 

[548] 

[3228] 


310 FOR Y=46 TO 192 STEP 18:PLOT [3721] 
14,Y : DRAW 158,Y:NEXT 

320 ch=32:x=2:y=2 [973] 

330 L0CATE#1,x,y:PRINT#1,CHR$(24) [2131] 
;CHR$(ch);CHR$(24) 

340 a$=INKEY$: IF a$="” THEN 340 [1412] 

350 b$=CHR$(240)+CHR$(241)+CHR$(2 [6663] 
42)+CHR$(243)+CHR$(224)+"CS":ON I 
NSTR(b$.a$) GOSDB 370.410.450.490 
.530.900.960 

360 GOTO 340 [464] 

370 1 HADT 1267] 

380 LOCATE#!.X.Y:PRINT#1.CHR$(CH) [3433] 


;:Y=Y-2:CH=CH-16:IF CH<32 THEN CH 
_CH+9 6•Y=Y+12 

390 LOCATE#1,X.Y:PRINT#1,CHR$(24) [2131] 
;CHR$(CH);CHR$(24) 

400 RETDRN [555] 

410 ’ BAS [577] 

420 LOCATE#l.X,Y:PRINT#1,CHR$(CH), [3413] 
:Y=Y+2:CH=CH+16: IF CH>127 THEN CH 
=CH-96:Y=Y-12 

430 L0CATE#1,X.Y:PRINT#1,CHR$(24) [2131] 
;CHR$(CH);CHR$(24) 

440 RETDRN [555] 

450 ’ GADCHE [336] 

460 LOCATE#l,X,Y:PRINT#l.CHR$(CH) [5369] 
:X=X-2 :CH=CH-1 : IF X<2 AND CH>32 T 
HEN X=32: Y=Y-2:ELSE IF X<2 AND CH 
<32 THEN X=32 :Y=12:CH=127 
470 L0CATE#1.X,Y :PRINT#1.CHR$(24) [2131] 
;CHR$(CH);CHR$(24) 

480 RETDRN [555] 

490 ‘ DROITE [939] 

500 LOCATE#l.X,Y:PRINT#l.CHR$(CH) [6138] 
:X=X+2:CH=CH+1: IF X>32 AND CH<127 
THEN X=2:Y=Y+2:ELSE IF X>32 AND 


CH>127 THEN X=2:Y=2:CH=32 

510 LOCATE#l.X.Y:PRINT#1,CHR$(24) [2131] 

;CHR$(CH);CHR$(24) 

520 RETDRN [555] 

530 * COPY [364] 

540 LOCATE#l,X.Y:PRINT#1.CHR$(CH) [1633] 
:GOSDB 1080 

550 xx=16:yy=188:GOSDB 630 [1308] 

560 ’ [117] 

570 b$=CHR$(240)+CHR$(241)+CHR$(2 [3321] 
42)+CHR$(243)+CHR$(224)+CHR$(9) 

580 a$=INKEY$: IF a$=" M THEN 580 [1364] 

590 a=INSTR(b$,a$):ON a GOSUB 700 [3366] 
,650.750.800.850:1F a=6 THEN GOSU 
B 610 : GOTO 1160 

600 GOTO 580 [448] 

610 ' cursor off [356] 

620 TAG:GRAPHICS PAPER TEST(xx+2. [4218] 

yy-2):GRAPHICS PEN 3:MOVE xx.yy:P 

RINT CHR$(32); :RETDRN 

630 ’ cursor on [353] 

640 TAG:GRAPHICS PAPER TEST(xx+2. [3764] 

yy-2):GRAPHICS PEN 3:MOVE xx,yy:P 

RINT CHR$(144);:RETDRN 

650 ’ bas copy [711] 

660 GOSDB 610 [923] 

670 yy=yy-18: IF yy<=44 THEN yy=yy [2795] 

+144 

680 GOSDB 630 [919] 

690 RETDRN [555] 

700 ’ haut copy [777] 

710 GOSDB 610 [923] 


8 






720 yy=yy+18:IF yy>188 THEN yy=yy [2621] 
-144 

730 GOSUB 630 [919] 

740 RETURN [555] 

750 ’ gauche copy [470] 

760 GOSDB 610 [923] 

770 xx=xx-18:IF xx<16 THEN xx=xx+ [2823] 
144 

780 GOSUB 630 [919] 

790 RETURN [555] 

800 ’ droite copy [1440] 

810 GOSUB 610 [923] 

820 xx=xx+18:IF xx>=160 THEN xx=x [2994] 
x-144 

830 GOSUB 630 [919] 

840 RETURN [55*5] 

850 ' copy copy [891] 

860 GOSUB 610 [923] 

870 a=TEST(xx+2.yy-2): GRAPHICS PA [5097] 
PER (1 AND a=0):MOVE xx,yy:PRINT 
CHR$(32); 

880 GOSUB 630 [919] 

890 RETURN [555] 

900 ' charge [423] 

910 INPUT#2, "Nom ? ".noin$:IF LEN( [3590] 
nom$)>14 THEN 910 ELSE IF NOM$<>" 

" THEN LOAD nom$. ADRCH 

920 f=32: FOR yYY=2 TO 12 STEP 2 [1674] 

930 FOR xXX=2 TO 32 STEP 2 [2015] 

940 IF f<128 THEN LOCATE#l,xXX,yY [2645] 
Y:PRINT#1,CHR$(f):f=f+1 
950 NEXT xXX.yYY:RETURN [1404] 

960 ' sauve [353] 

970 INPUT#2,"Nom ? M ,nom$:IF LEN( [4233] 
nom$)>8 THEN 910 ELSE IF NOM$o" M 
THEN SAVE nom$+”.chr",b,adrch,lo 


ng+2 

980 RETURN 

990 ’ sauvegarde en mem d'un,chr 
1000 ADR=ADRCH +(CH-32)*8 
1010 XECR=(X-1)*16 
1020 YECR=398-((Y-1)*16) 

1030 FOR YSCR=0 TO 7 
1040 a$="”:FOR XSCR=0 TO 7 
1050 a$=a$+BIN$(TEST(xecr+xscr*2. 
YECR-YSCR*2)) 

1060 NEXT:POKE adr.VAL("&X"+a$): a 
dr=adr+l:NEXT 
1070 RETURN 

1080 ’ recopiage de la grille ecr 
-> chr 

1090 XECR=(X-1)*16 :xx=16 

1100 YECR=398-((Y-1)*16):yy=188 

1110 FOR YSCR=0 TO 7:xx=16 

1120 FOR XSCR=0 TO 7 

1130 GRAPHICS PEN (TEST(xecr+xscr 

*2,yecr-yscr*2)):TAG:MOVE xx,yy:P 

RINT CHR$(143); 

1140 xx=xx+18:NEXT:yy=yy-18:NEXT 
1150 RETURN 

1160 ' recopiage de la grille chr 
-> ecr 

1170 XECR=(X-1)*16 :xx=24 

1180 YECR=398-((Y-1)*16):yy=180 

1190 FOR YSCR=0 TO 7:xx=24 

1200 FOR XSCR=0 TO 7 

1210 PLOT xecr+xscr*2,yecr-yscr*2 

.TEST(xx,yy):xx=xx+18 :NEXT: YY-YY - 

18:NEXT 

1220 GOSUB 990 :LOCATE#l,x,y:PRINT 
#1,CHR$(24);CHR$(ch);CHR$(24);:RE 
TURN 
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1BF0:21 11 08 00 19 22 14 21:43 
1BF8:CD IB IC C3 3B IB FE 09:79 
1C00:20 10 F5 CD IB IC AF 06:97 
1C08:08 21 16 21 77 23 10 FC:A9 
1C10:F1 C9 FE E0 C2 3B IB CD:7A 
1C18:1B IC C9 2A 10 21 CB 7C:0D 
1C20:28 06 21 00 00 22 10 21:17 
1C28:2A 14 21 CB 7C 28 06 21:B3 
1C30:00 00 22 14 21 2A 12 21:29 
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1C48:06 21 00 00 22 16 21 2A:11 
1C50:10 21 11 81 02 B7 ED 52:54 
1C58:38 06 21 60 02 22 10 21:69 
1C60:2A 12 21 11 91 01 B7 ED:B5 
1C68:52 38 06 21 90 01 22 12:30 
1C70:21 2A 10 21 ED 5B 14 21:0C 
1C78:19 11 81 02 B7 ED 52 38:79 
1C80-.1C 2A 14 21 11 08 00 B7:09 
1C88: ED 52 30 0E 2A 10 21 11:9E 
1C90:08 00 B7 ED 52 22 10 21:6B 
1C98:18 03 22 14 21 2A 12 21:AF 
1CA0: ED SB 16 21 19 11 91 01:07 
1CA8.-B7 ED 52 38 IC 2A 16 21:55 
1CB0:11 08 00 B7 ED 52 30 0E:16 
1CB8:2A 12 21 11 08 00 3F ED:12 
1CC0:52 22 12 21 18 03 22 16:54 
1CC8:21 2A 16 21 2B 2B 22 16:96 
1CD0:21 2A 14 21 2B 2B 22 14:88 
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1CE0:3E 01 CD 59 BC 2A 12 21:35 
1CE8:ED 5B 10 21 CD EA BB 2A:45 
1CF0:16 21 ED 5B 14 21 CD DC:3C 
1CF8:1A AF CD 59 BC 2A 16 21:A1 
1D00:23 23 22 16 21 2A 14 21:79 
1D08:23 23 22 14 21 2A 10 21:5D 
1D10:2B 22 10 21 C9 F5 3E C4:CD 
1D18:21 00 C0 11 00 40 01 19:29 
1D20:50 CD 82 18 11 09 18 21:48 
1D28:00 00 CD 66 BB CD 6C BB:85 
1D30:11 04 00 21 FA 00 CD EA:B7 
1D38.-BB 11 C0 00 21 8A 00 CD:BB 
1D40:DC IA 11 04 00 21 66 01:48 
1D48:CD EA BB 11 C4 00 21 66:66 
1D50:01 CD F6 BB 11 08 17 21:04 
1D58:01 01 CD 66 BB Fl FE 01:BE 
1D60:20 03 21 SB 1E FE 02 20:0A 
1D68:03 21 98 1E FE 03 20 03:0A 
1D70:21 C3 1E FE 04 20 03 21:77 
1D78:17 1F FE 05 20 03 21 50:11 
1D80.-1F FE 06 20 03 21 93 1F:1C 
1D88:FE 07 20 03 21 D3 1F 11:15 
1D90:01 00 7E C6 05 4F 3E 17:9D 
1D98:91 CB 3F 57 D5 E5 EB CD:51 
1DA0:75 BB 21 55 1E CD 4C 1E:C7 
1DA8: El 23 CD 4C 1E DI 06 06:59 
1DB0: IC IC C5 3E 17 96 23 CB:AC 
1DB8 : 3F 3C 57 D5 E5 EB CD 75:23 
1DC0:BB El CD 4C 1E DI IC Cl:39 
1DC8:10 E8 21 Fl C0 0E 01 ES :2F 
1DD0:CD 3A 1E El C5 E5 CD 06:0E 
1DD8:BB El Cl FE Fl 20 IC E5:0E 
1DE0:CD 3A 1E El 0C 79 FE 07:58 
1DE8:20 05 21 Al C0 0E 01 11:B9 
1DF0: 50 00 19 ES CD 3A 1E El:73 
1DF8:C3 D4 1D FE F0 20 1D E5:32 
1E00:CD 3A 1E El 0D 79 B7 20:55 
1E08:05 21 DI C2 0E 06 11 50:49 
1E10:00 B7 ED 52 ES CD 3A 1E:78 
1E18: El C3 D4 1D FE E0 20 12:33 
1E20:79 F5 3E C4 21 00 C0 11:D8 
1E28:00 40 01 19 50 CD 93 18:50 
1E30:F1 C9 FE 09 C2 D4 1D AF:F4 
1E38:18 E7 E5 06 17 7E EE FF:E4 
1E40:77 23 10 F9 El 7C C6 08:26 
1E48:67 30 EF C9 7E 23 B7 C8:A7 
1E50: CD 5A BB 18 F7 4D 45 4E:74 
1E58:55 20 00 05 47 65 6E 65:0A 
1E60:72 61 6C 00 07 53 70 72:AB 
1E68:69 74 65 73 00 04 50 61:22 
1E70:67 65 00 0A 43 61 72 61:A2 
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PROGRAMMATION 


Un bon tuyau 

HISTOIRE D'EAU 


A pparemment, le but est 
simple. C'est sans comp¬ 
ter sur la fantaisie de 
l'ordinateur qui, pour chaque 
tronçon, propose un choix de 
configurations lorsqu’il ne les 
:mpose pas. Parfois un but est 
a atteindre avec des obstacles 
gênant votre progression. Un 
régal!.. 


Sauvegarde 

Le premier listing (facultatif) 
concerne la présentation et le 
mode d’emploi. Le second est 
le programme principal à sau¬ 
ver sous le nom de «EAU». Les 
codes hexadécimaux du troi- 


Au moyen de diverses canalisations, 
établissez un circuit d'eau avant que la 

source ne jaillisse. 



igp 




n *ïr <v»y-v;' 


sième sont à entrer par 
Amsaisie V.2 en vous reportant 
à son mode d'emploi. Spécifiez 
8000 comme adresse de début 
est sauvegardez le fichier 
binaire sous le nom de «SPRI- 
TEAU». Si vous le désirez, 
morcelez votre travail en plu¬ 
sieurs fichiers (SI, S2, etc.). Ces 
derniers devront ultérieure¬ 
ment être chargés à la suite 
(LOAD "SI" : LOAD "S2", etc.) 
après un MEMORY &7FFF et 
sauvegardés ainsi dans un 
fichier unique: 

SAVE " SPRITEAU",b, &8000, 
&A10 


Claude Le Moullec 


10 [1553] 

20 ’: : [255] 

30 ': PRESENTATION/EXPLICATIONS : [2644] 

40 ': (facultative) : [862] 

50 1 : : [255] 

60 1 : : : : : : : : : : : : : : : : : : : : : : : : : : : ; : [1553] 

70 ENV 1. =11,1900:ENV 4,10,-10,10 [1737] 
80 EVERY 25,2 GOSUB 350 [799] 

90 MODE 1 : INK 0.0:BORDER 0:INK 1. [3360] 
2:INK 2.11:INK 3,23 

100 OUT &BC00,6:OUT &BD00.24 [902] 

110 A$="HISTOIRE":Y=300:X=70:GOSU [1626] 
B 130 

120 A$="D‘EAU":Y=220:X=300:GOSUB [3618] 
130 : GOTO 160 

130 LOCATE 1,25:PRINT A$ [1278] 


140 FOR A=14 TO 0 STEP -2:FOR B=0 [12660] 
TO LEN(A$)*16-2 STEP 2 : IF TEST(B 
.A) THEN FOR C=0 TO 2:PLOT (C-D)* 

2+(A+B)*3+X,Y+A*4,2:DRAWR 0,20:DR 
AWR 6,6,3:NEXT: FOR C=-l TO 1 STEP 
2 :PLOTR - 2,-2,1 :DRAWR 0,C*20:NEX 
T 

150 NEXT B,A :LOCATE 1,25:PRINT SP [2854] 
ACE$(2 0):RETURN 

160 OUT &BC00,6:OUT &BD00.25 [901] 

170 SYMBOL AFTER 96:SYMBOL 97,0,2 [3838] 
8.46.95,95.95.62,28 

180 SYMBOL 9*.0,0,60.94.191,191,9 [1826] 
4.60 

190 SYMBOL 99.0.0,0,0.0,3.1,0 [1415] 

200 SYMBOL 100.0.0.0.0,255.127,14 [2140] 
3,126 

210 SYMBOL 101,0.0.0.0.128,192.12 [2043] 


8,0 

220 SYMBOL 102,0,0,0,6,5.11.14.1 [1759] 

230 SYMBOL 103,0,0,0.0.1,206.254, [1350] 
255 

240 SYMBOL 104.0,0,0,128,64,192.1 [1781] 
28.0 

250 SYMBOL 105,64,16,0,132.0.36.7 [1641] 
.1 

260 SYMBOL 106,0,0,0,0,0,0,128.25 [2095] 

5 

270 SYMBOL 107,0,2,36,1,0,50,224, [1660] 
128 

280 SYMBOL 108.0,0,0,0,0.0,0,83 [1975] 

290 SYMBOL 109,0,0,0,0,0,0.0,194 [1461] 

300 A$(0) = ”cde’’ :A$( 1 ) = "fgh” :A$(2) [9964] 

= "ijjc“:A$(3)="ljm":A$(4)=” M :LO 
CATE 1,14:PAPER 3:PEN 2:PRINT STR 
ING$(80,207); : FOR A=0 TO 2:PLOT 0 
.158+A*17-10*(A=l),2-(A=1):DRAWR 
640,0:NEXT 

310 WINDOW 19,20,13,17:PRINT STRI [14548] 
NG$(8,207); :WINDOW SWAP 0,1:PLOT 
286,158,2:DRAWR 0,-16:DRAWR 32,0: 

DRAWR 0,64:DRAWR -32,0:DRAWR 0,-1 
6:PLOT 288,198,2:DRAWR 28.0.3:FOR 
X=-100 TO 100 STEP 2 :Y=SQR(10000 
-X*X)/8:PLOT 320+X,20-Y:DRAWR 0.2 
*Y.3:NEXT:PLOT -10,-10,1 
320 FOR Y=148 TO 34 STEP -2 :TAG:M [10305] 
OVE 320,Y:PRINT "a";:NEXT:TAGOFF: 

PAPER 3:LOCATE 21,24:PRINT "b":GO 
SUB 340:FOR A=0 TO 4:LOCATE 20,24 
:PRINT A$(A); :GOSUB 340 :NEXT: PAPE 
R 0 


13 











330 a$=INKEY$: IF a$="" THEN 320 E [2014] 
LSE 410 

340 FOR B=1 TO 5:CALL &BD19:NEXT: [1430] 
RETURN 

350 DI:IF (SQ(1) AND 7)=0 THEN El [4838] 

:RETURN ELSE READ e,f:IF e=-l THE 
N RESTORE 380:GOTO 370 

360 SOUND l,0.5*e,f,15.2.7 : SOUND [4151] 
2,e.f.15,1 : SOUND 4.2*e,f,15,l,2:G 
OTO 350 

370 ENV 1,=11.9000:ENV 4.=11.5000 [2603] 
.•GOTO 350 

380 DATA 253.50.253.50,239,50.213 [8297] 
.50.213.50.239.50.253.50,284.50.3 

19.50.319.50.284.50.253.50.253.85 
.284.15,284.100.253.50,253.50.239 
.50,213.50.213.50.239.50.253.50.2 
84.50 

390 DATA 319.50.319.50.284.50.253 [8597] 

.50.284.85.319.15.319.100.284.50. 

284,50.253.50.319.50.284.50.253.2 

5.239.25.253.50.319.50.284.50.253 

.25.239.25.253.50.284.50.319.50.2 

84,50.426.75 

400 DATA 253.75.253.50.239.50.213 [5492] 
.50.213.50.239,50.253.50.284.50.3 

19.50.319.50.284.50.253.50.284.85 
.319.15.319.100.0.200.-1.1 

410 MODE 1 : INK 0,0:INK 1,24:INK 2 [4861] 
.15:INK 3.6:BORDER 0:SYMBOL AFTER 
32:MATR=PEEK(&B296)+256*PEEK(&B2 
97) 

420 LOCATE 13.1 :a$="HISTOIRE D'EA [3482] 
U":GOSUB 510 

430 LOCATE 13.2 :a$="============= [2777] 

=":GOSUB 510 

440 LOCATE 1,4:A$=" L’eau part [11982] 
de la source et remplitles can 
alisations.Dans la mesure ou vous 


avez pose les bons morceaux.":GOS 
UB 510 

450 LOCATE 1.8:A$=" Vous l’ave [13579] 
z compris, votre tache estsimple. 

Vous devez creer un circuit pour 
acheminer l'eau d'un point a un a 
utre.”:GOSUB 510 

460 LOCATE 1,12:A$=" Enfin, pa [16478] 

s si simple que cela quandvous 

saurez que dans certains tableau 

xle but sera impose. Dans d’autr 

es. vousdevrez utilisez les eleme 

nts choisis pari'ordinateur:GOS 

UB 510 

470 LOCATE 1.18:A$=" Bref. Je [16937] 
vous prédis quelques crisesde ner 
■•fs. Dans la mesure ou cela peu 
tvous consoler, sachez que ce jeu 
se joueindifferemment au JOYSTIC 
K ou CLAVIER.’’:GOSUB 510 
480 LOCATE 32.25:A$="<ENTER>":GOS 
UB 510 

490 LOCATE 1.1:PRINT CHR$(22)+CHR 
$(0) : WHILE INKEY$="’’ :WEND 
500 CALL &BCA7:RUN "leau" 

510 IF PEEK(6)<>128 THEN 550 
520 PRINT CHR$(22):CHR$(1); : FOR A 
=1 TO LEN(A$): FOR B=0 TO 7:ADR=PE 
EK(MATR+(ASC(MID$(A$,A,l))-32)*8+ 

B):A(B)=ADR:NEXT 

530 SYMBOL 253.A(0).A(1).A(2).0.0 
.0.0.0:SYMBOL 254.0.0.0.A(3).A(4) 

,0,0,0:SYMBOL 255.0.0.0.0.0.A(5). 

A(6),A(7) 

540 FOR Z=1 TO 3 :PEN Z:PRINT CHR$ 

(Z+252);CHR$(8); :NEXT:PRINT" "; : N 
EXT :RETURN 

550 PEN 1:PRINT a$:RETURN 


[2696] ; 

[3212] 

[1344] j 

[1478] 

[5663] 


[6104] 


[6392] 


[1979] 


14 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 SYMBOL AFTER 200 
170 SYMBOL 201.0.73.105.105.89.89 
.73.0 

180 SYMBOL 202.0.228.4.3.195.4.22 

8.0 


HISTOIRE D’EAU 


LMC SOFTWARE 
Claude LE MOÜLLEC 


REDEFINITION 


190 SYMBOL 203.0.158.132.4.4.132. 
132.0 

200 SYMBOL 204.0,30,8.8,8.8.8.0 
210 SYMBOL 205.0,73.79,73.73.73.7 
3.0 


220 SYMBOL 206.0,60.32.32.56.32.6 

0.0 

230 SYMBOL 211,0.0.0.0.1,1.0.1 
240 SYMBOL 212.14.31,123.245.226. 


[1924] 

[419] 

[882] 

[419] 

[1924] 

[419] 

[538] 

[419] 

[2031] 

[419] 

[1924] 

[419] 

[1622] 

[419] 

[1924] 

[1432] 

[1977] 

[1752] 

[1793] 

[1278] 

[1948] 

[2291] 

[1255] 

[2050] 


255.127,103 

250 SYMBOL 213.128,224,192.224.25 

260 5 SŸMBOL 2 214.0.0,0,58.239.255.2 

54,188 

270 SYMBOL 215.3.3.1.0.1.3.15,62 
280 SYMBOL 216,108.113,191.220,17 
9.119.127.248 

290 SYMBOL 217.15.252.128.0.192.2 
24,253,195 

300 SYMBOL 218,240.0,0.0,0.0.0.12 
8 

310 MEMORY &7FFF: LOAD "ISPRITEAU" 
,&8000 

320 RESTORE 330:FOR H=&A000 TO &A 
030:READ A$:POKE H,VAL("&"+A$):NE 
XT 

330 DATA 7C. C6.08.67.D0.D5.il. 50. 
C0.19.D1.C9.00.DD.5E.00.DD.56.01. 
DD,6E.02.DD,66.03.06.18,F3,C5,E5. 
06.06.IA.77.13.23.10.FA.El.CD.00. 
A0.C1.10.EF.FB.C9.00.FB 
340 REM ::::::::::::::::::::::::: 
350 REM : •' : 

360 REM : VARIABLES DE BASE ; 

370 REM : 

380 REM 

390 DEFINT A-Z 

400 MODE 1:BORDER 0.-INK 0.0: INK 1 


[2836] 

[2258] 

[1348] 

[2327] 

[1612] 

[1593] 

[1696] 

[4066] 

[9472] 


[1924] 

[419] 

[2081] 

[419] 

[1924] 

[553] 

[1834] 
















.9:INK 2,6:INK 3,24 

410 FOR h=l TO 8:cad(h)=&8000+((h [1941] 
-1)*16):NEXT 

420 DIM sp(20):FOR h=l TO 17:sp(h [2933] 

)=&8080+((h-l)*&90):NEXT 

430 DEF FN ca(x,y)=&C000+(y-l)*80 [1172] 

+(x-l)*2 


760 PRINT CHR$(22)+CHR$(1):PEN 3: [4507] 
LOCATE 2.2:PRINT alil$:LOCATE 2.3 
:PRINT ali2$:PRINT CHR$(22)+CHR$( 

0):GOTO 2340 

770 PEN 1 :LOCATE X.Y:PRINT A$:FOR [3347] 

H=(X-1)*16 TO (LEN(A$)+X)*16 STE 
P 2 


440 DEF FN po(x,y)=&C006+(y-l)*24 [1662] 
0+(x-l)*6 


780 FOR G=(26-Y)*16-16 TO (26-Y)* [1983] 
16-12 STEP 2 


450 nex$=CHR$(201)+CHR$(202)+CHR$ 
(203) 

460 tim$=CHR$(204)+CHR$(205)+CHR$ 
(206) 

470 ali1$=CHR$(211)+CHR$(212)+CHR 
$(213)+CHR$(214) 

480 ali2$=CHR$(215)+CHR$(216)+CHR 
$(217)+CHR$(218) 

490 WINDOW #1.2.4,13,24:PAPER #1. 
0 :CLS #1 : DIM je(13,9) 

500 xo$=CHR$(23)+CHR$(1):nr$=CHR$ 
(23)+CHR$(0) 

510 WINDOW #2,7.39,4,24:ta=l:vie= 
3 

520 REM 
530 REM 
540 REM 
550 REM 
560 REM 


[2485] 

[1330] 

[3166] 

[3797] 

% 

[2831] 

[3361] 

[1985] 


790 IF TEST(H.G)=l THEN PLOT H.G. 
2 

800 NEXT G:FOR G=(26-Y)*16-10 TO 
(26-Y)*16-8 STEP 2 

810 IF TEST(H,G)=1 THEN PLOT H,G. 
3 

820 NEXT G,H :RETURN 

830 PLOT -10,-10,1:FOR h=l TO 30 

STEP 3:FOR g=l TO 18 STEP 3 

840 ORIGIN 120+(h*16),320-(g*16): 

PLOT 0,0:DRAW 16,0 

850 PLOT 8.-8:DRAW 8,8:NEXT g,h:0 

RIGIN 0.0:RETURN 




860 REM 


! DESSIN DECOR 

::: [1924] 

: [419] 

: [1958] 

: [419] 

::: [1924] 

870 REM 
880 REM 
890 REM 
900 REM 
910 REM 

DIVERS : 


: : AFFICHAGE NEXT 


TORE 700:READ a.b.c,d,e.f.I.J 
580 FOR h=l TO a:READ al.bl,cl:FO 
R g=al TO bl 

590 CALL &A00D.FN ca(g,cl),cad(3) 
:NEXT g.h 

600 FOR h=l TO b:READ al.bl.cl:FO 


[4853] 

[2763] 

[2457] 

[1902] 


920 FOR g=l TO 3 :LOCATE #1,1,1:PR 
INT #1,CHR$(11):NEXT 
930 fr(4)=fr(3):fr(3)=fr(2):fr(2) 
=fr(l) 

940 fo=INT(RND*7)+2 

950 CALL &A00D,&C3C2,sp(fo):fr(1) 

=fo:RETURN 


[1486] 

[1742] 

[1489] 

[1296] 

[3766] 

[2440] 

[2294] 

[1924] 

[419] 

[553] 

[419] 

[1924] 

[1353] 

[4876] 

[2235] 

[1700] 

[3278] 


R g=al TO bl 

610 CALL &A00D.FN ca(g.cl).cad(4) [2475] 
:NEXT g.h 

620 FOR h=l TO c:READ al.bl,cl:FO [2589] 
R g=al TO bl 

630 CALL &A00D.FN ca(cl,g).cad(1) [2965] 
:NEXT g.h 

640 FOR h=l TO d:READ al,bl,cl:FO [1906] 
R g=al TO bl 

650 CALL &A00D.FN ca(cl,g),cad(2) [2681] 
:NEXT g.h 

660 FOR h=l TO e:READ al,bl:CALL [2428] 

&A00D.FN ca(al,bl),cad(5):NEXT 

670 FOR h=l TO f:READ al,bl:CALL [2993] 

&A00D.FN ca(al,bl),cad(6):NEXT 

680 FOR h=l TO I :READ al,bl:CALL [5214] 

&A00D.FN ca(al,bl).cad(7):NEXT 

690 FOR h=l TO J:READ al,bl:CALL [5360] 

&A00D.FN ca(al,bl),cad(8):NEXT 

700 DATA 6,4,6.6.6,6,4.4 [564] 

710 DATA 2,4.1.2.4,6,2.4,11,7,39. [2799] 

3,11.21.1.25.35,1.2.4,4.2.4.9,2,4 

25,7 39 25 

720'DATA* 2,3,1,7.8.1,12,24,1,4.24 [3644] 

,6.2.2,10.2.2.24.2,3,5.7,8.5,12.2 

4.5.4.24.40.2.2,22.2.2.36 

730 DATA 1.1.1.6.1,11,6,3,10,1.24 [3735] 

.1,5.1.5.6,5,11,40,3,22.1.36,1,5. 

4,5.9.5,25.40.25.1,4.1,9.1,25,6.2 

5 

740 a$="SCORE: M :X=11 :Y=2:GOSUB 77 [3710] 
0:a$=”HIGHT:”:X=25:GOSUB 770 
750 PEN 3 :LOCATE 2,12:PRINT NEX$: [3299] 
LOCATE 2,7:PRINT TIM$ 


960 REM.::: AFFICHAGE CADRE :: [1363] 
970 PLOT xl,yl,3 : DRAW xl+xl.yl:DR [5723] 
AW xl+xl,yl-yl:DRAW xl,yl-yl:DRAW 
xl.yl 

980 PLOT x,y,3:DRAW x+xl,y:DRAW x [3827] 
+xl,y-yl: DRAW x.y-yl:DRAW x,y 
990 xl=x:yl=y:WHILE INKEY$<>”":WE [3657] 
ND :RETURN 

1000 LOCATE 1,1:PRINT x; y :RETURN [1818] 
1010 REM :: AFFICHAGE DEPART :: [1536] 
1020 x=INT(RND*9)+3:y=INT(RND*5)+ [3587] 
3 : IF je(x,y)<>0 THEN 1020 

1030 fo=INT(RND*2)+3:fol=fo:xd=x: [3486] 
yd=y 

1040 PEN 3 :CALL &A00D.FN po(x.y), [2945] 
sp(fo): IF fo=4 THEN 1080 
1050 ss=INT(RND*4) + l: IF ss=2 OR s [3209] 
s=4 THEN 1050 

1060 IF ss=l THEN LOCATE 2+(x*3), [2466] 
y*3:PRINT "S":RETURN 

1070 IF ss=3 THEN LOCATE 2+(x*3), [3333] 
(y*3)-2 .-PRINT "S” : RETURN 
1080 ss=INT(RND*4) + l: IF ss=l OR s [2733] 
s=3 THEN 1080 

1090 IF ss=2 THEN LOCATE l+(x*3). [2828] 

(y*3)-l:PRINT "S":RETURN 

1100 IF ss=4 THEN LOCATE 3+(x*3). [2804] 

(y*3)-l:PRINT "S":RETURN 

1110 REM ::: COMPTEUR TEMPS ::: [1636] 

1120 DI :tt=tt-1:PEN 2:LOCATE 2.8: [931] 

PRINT tt 

• 1130 SOUND 4,80,9,7,1 [1443] 

1140 IF tt=0 THEN fin=l:El:RETURN [1986] 
1150 El :RETURN [416] 


15 












1160 REM ::: DEPART SOURCE : : [1794] 

1170 IF fol=4 THEN 1200 ELSE CALL [3135] 
&A00D.FN po(xd.yd).sp(10) 

1180 PEN 3:IF ss=l THEN LOCATE 2+ [3467] 
(xd*3),yd*3:PRINT "S":GOTO 1230 
1190 IF ss=3 THEN LOCATE 2+(xd*3) [2608] 
.(yd*3)-2:PRINT "S":GOTO 1230 
1200 CALL &A00D.FN po(xd,yd),sp(l [1875] 
1) 

1210 PEN 3:IF ss=2 THEN LOCATE 1+ [4105] 
(xd*3).(yd*3)-l:PRINT "S":GOTO 12 
30 

1220 IF ss=4 THEN LOCATE 3+(xd*3) [2737] 

. (yd*3)-l:PRINT "S" 

1230 EVERY vit*vi,2 GOSUB 1780:RE [1975] 
TURN 

1240 REM ::: AFFICHAGE BUT ::: [1213] 
1250 xz=INT(RND*9)+3:yz=INT(RND*5 [5100] 
) + 3: IF je(xz,yz)<>0 THEN 1250 
1260■PEN 3:CALL &A00D.FN po(xz.yz [3650] 
).sp(2):je(xz,yz)=40 

1270 LOCATE 2+(xz*3).(yz*3)-1:PRI [2860] 
NT "B":RETÜRN 

1280 REM ::: AFF. OBSTACLES ::: [997] 
1290 FOR h=l TO obs [677] 

1300 xz=INT(RND*10)+2:yz=INT(RND* [4849] 
6)+2:IF je(xz,yz)<>0 THEN 1300 
1310 CALL &A00D.FN po(xz,yz).sp(1 [2441] 


) :je(xz,yz) = 30 

1320 NEXT:RETURN [940] 

1330 REM :::::::::::::::::::::::: [1823] 
1340 REM : : [419] 

1350 REM : DEBUT DE PARTIE : [1477] 

1360 REM : : [419] 

1370 REM :::::::::::::::::::::::: [1823] 


1380 POKE &A01A, 24:POKE 8cA01F,6:C [2773] 
LS #1:FOR h=l TO 4:GOSUB 920:NEXT 
1390 ERASE je:DIM je(13.9):FOR h= [4002] 
1 TO 13:je(h,l)=50:je(h.9)=50:NEX 
T 

1400 FOR h=2 TO 8 :je(l.h) = 50:je(1 [2544] 
3,h)=50:NEXT 

1410 GOSUB 1020:JE(X,Y)=20+fo:ON [3307] 
ss GOTO 1430,1440,1450,1460 
1420 ON ss GOTO 1430,1440,1450,14 [1379] 
60 

1430 JE(X,Y-l)=200:bxx=x:byy=y-l: [2973] 
GOTO 1470 

1440 JE(X+1,Y)=200:bxx=x+l:byy=y: [1963] 
GOTO 1470 

1450 JE(X,Y+l)=200:bxx=x:byy=y+l: [2101] 
GOTO 1470 

1460 JE(X-1,Y)=200:bxx=x-l:byy=y: [1269] 
GOTO 1470 

1470 xp=3:yp=3:xl=48:yl=48:x=144 [1823] 

1480 IF ta=3 OR ta=4 OR ta=7 OR t [2011] 
a=8 THEN GOSUB 1250 

1490 IF ta>4 THEN GOSUB 1290 [1108] 

1500 y=304:xl=x:yl=y:PRINT xo$:GO [1835] 
SUB 980:cp=0 

1510 PEN 2 :LOCATE 3.8:PRINT "9":t [2593] 
t=9:WHILE INKEY$="":WEND 
1520 IF dif=2 THEN vi=2 ELSE vi=l [1324] 
1530 je(bxx,byy)=0:EVERY 150*vi,l [2010] 


GOSUB 1120 

1540 REM :::::::::::::::::::::::: [1823] 
1550 REM : : [419] 

1560 REM : ROUTINE PRINCIPALE : ('225] 
1570 REM : : [419] 


1580 REM :::::::::::::::::::::::: [1823] 
1590 IF f in=l THEN tnu=REMAIN( 1 ) : f [3205] 
in=0:GOSUB 1170 

1600 IF fil=l THEN mu=REMAIN(2):f [2499] 
il=0:GOTO 2170 

1610 IF INKEY(0)*INKEY(72)=0 AND [4121] 
y<352 THEN y=y+48:yp=yp-l:GOSUB 9 
70 

1620 IF INKEY(2)*INKEY(73)=0 AND [1341] 
y>64 THEN y=y-48:yp=yp+l:GOSUB 97 

0 

1630 IF INKEY(8)*INKEY(74)=0 AND [3584] 
x>96 THEN x=x-48:xp=xp-l:GOSUB 97 
0 

1640 IF INXEY(1)*INKEY(75) = 0 AND [3445] 
x<576 THEN x=x+48:xp=xp+l:GOSUB 9 
' 70 

1650 IF INKEY(9)*INKEY(76)=0 THEN [1291] 
1680 

1660 GOTO 1590 [317] 

1670 REM :: POSE D'UN ELEMENT :: [2850] 
1680 IF je(xp,yp)>mix THEN SOUND [3511] 
1,500,5.5.,,10:GOTO 1590 
1690 PLOT xl,yl,3:DRAW xl+xl,yl:D [5723] 
RAW xl+xl.yl-y1:DRAW xl,yl-yl:DRA 
W xl,y1 

1700 SOUND 4,300,3,7:CALL &A00D.F [2501] 
N po(xp.yp),sp(fr(4)) 

1710 PLOT x,y,3 : DRAW x+xl.y:DRAW [3827] 

x+xl,y-yl:DRAW x,y-yl:DRAW x,y 

1720 je(xp,yp)=fr(4):GOSUB 920:GO [2674] 


TO 1590 

1730 REM :::::::::::::::::::::::: [1823] 
1740 REM : : [419] 

1750 REM : L’EAU COULE : [1268] 

1760 REM : : [419] 

1770 REM :::::::::::::::::::::::: [1823] 


1780 DI :cp=cp+l:ON SS GOTO 1800,1 [3029] 
880,1960,2040 

1790 REM : : : : VERS LE HAUT : : : : [686] 
1800 YD=YD-1: IF JE(XD,YD)=0 OR JE [3356] 
(XD,YD)=40 THEN 2160 

1810 IF JE(XD,YD)=2 THEN CALL &A0 [4936] 
0D.FN po(xd.yd),sp(17):JE(XD,YD)= 

17:EI:RETURN 

1820 IF JE(XD,YD)=3 THEN CALL &A0 [3920] 
0D.FN po(xd.yd).sp(10):JE(XD,YD)= 

10 : El :RETURN 

1830 IF JE(XD,YD)=5 THEN CALL &A0 [5334] 
0D.FN po(xd.yd),sp(12):JE(XD,YD)= 

12:SS=2:El:RETURN 

1840 IF JE(XD,YD)=6 THEN CALL &A0 [4247] 

0D.FN po(xd.yd),sp(13):JE(XD,YD)= 
i O . cc _4 . PT . DTTT1TPN 

1850 IF’JE(XD,YD)=16 THEN CALL &A [3783] 
00D.FN po(xd.yd),sp(9):JE(XD,YD)= 

9:El:RETURN 

1860 GOTO 2160 [363] 

1870 REM :::: A DROITE :::: [417] 

1880 XD=XD+1: IF JE(XD,YD)=0 OR JE [3086] 
(XD,YD)=40 THEN 2160 

1890 IF JE(XD,YD)=2 THEN CALL &A0 [4438] 
0D.FN po(xd.yd),sp(16):JE(XD,YD)= 

16:El:RETURN 

1900 IF JE(XD,YD)=4 THEN CALL &A0 [4984] 
0D.FN po(xd.yd),sp(ll):JE(XD,YD)= 

11 * EM • RETURN 

1910 IF JE(XD.YD)=8 THEN CALL &A0 [2960] 
0D.FN po(xd.yd),sp(15):JE(XD,YD)= 




















15:SS=1:ElrRETURN 

1920 IF JE(XD,YD)=6 THEN CALL &A0 [5618] 
0D.FN po(xd,yd),sp(13):JE(XD,YD)= 

13:SS=3:EIrRETURN 

1930 IF JE(XD,YD)=17 THEN CALL &A [5371] 
00D.FN po(xd.yd).sp(9):JE(XD,YD)= 

9:ElrRETURN 

1940 GOTO 2160 [363] 

1950 REM :::: VERS LE BAS :::: [560] 

1960 YD=YD+1: IF JE(XD.YD)=0 OR JE [1978] 
(XD,YD)=40 THEN 2160 

1970 IF JE(XD.YD)=2 THEN CALL &A0 [4936] 
0D.FN poCxd.yd).sp(17):JE(XD,YD)= 

17:ElrRETURN 

1980 IF JE(XD,YD)=3 THEN CALL &A0 [3920] 
0D.FN po(xd.yd),sp(10):JE(XD,YD)= 

10:EI:RETURN 

1990 IF JE(XD,YD)=7 THEN CALL &A0 [3980] 
0D.FN po(xd.yd),sp(14):JE(XD,YD)= 
14:SS=2:EI:RET0RN 

2000 IF JE(XD,YD)=8 THEN CALL &A0 [3488] 
0D.FN po(xd.yd),sp(15):JE(XD.YD)= 

I • FT • T?FTTTT?M 

20î0 IF JE(XD,YD)=16 THEN CALL &A [3783] 
00D.FN po(xd.yd),sp(9):JE(XD.YD)= 

9:ElrRETURN 

2020 GOTO 2160 [363] 

2030 REM :::: A GAUCHE :::: [729] 

2040 XD=XD-1: IF JE(XD,YD)=0 OR JE [2778] 
(XD,YD)=40 THEN 2160 

2050 IF JE(XD,YD)=2 THEN CALL &A0 [4438] 
0D.FN po(xd,yd),sp(16):JE(XD.YD)= 

16:ElrRETURN 

2060 IF JE(XD,YD)=4 THEN CALL &A0 [4984] 
0D.FN po(xd.yd),sp(ll):JE(XD.YD)= 

II : ElrRETURN 

2070 IF JE(XD,YD)=5 THEN CALL &A0 [4833] 
0D,FN po(xd.yd),sp(12):JE(XD.YD)= 

12:SS=3:ElrRETURN 

2080 IF JE(XD,YD)=7 THEN CALL &A0 [4241] 
0D.FN po(xd.yd),sp(14):JE(XD,YD)= 

14:SS=1:ElrRETURN 

2090 IF JE(XD,YD)=17 THEN CALL &A [5371] 
00D.FN po(xd,yd),sp(9):JE(XD,YD)= 


9 : El :RETURN 

2100 GOTO 2160 [363] 

2110 REM [1823] 

2120 REM : : [419] 

2130 REM : FIN DE PARTIE : [858] 

2140 REM : : [419] 

2150 REM [1823] 

2160 El:fil=lrRETURN [955] 


2170 cp=cp-1 : IF cp>but THEN 2230 [1270] 

2180 sc=sc+(cp*5):PEN 2:LOCATE 17 [2224] 
,2 rPRINT " 

2190 vie=vie-l:IF vie=0 THEN vie= [1817] 
3 : GOTO 2210 

2200 LOCATE 16.2rPRINT scrGOSUB 2 [2650] 
940:FOR t=l TO 6000rNEXT:GOTO 234 
0 

2210 IF rec<sc THEN rec=sc:LOCATE [4597] 
31.2rPRINT" LOCATE 30.2:PR 

INT rec 

2220 ta=l:sc=0:GOSUB 2940:FOR t=l [4329] 
TO 6000rNEXÏ:GOTO 2340 

2230 IF ta=3 AND JE(XD,YD)<>40 TH [2020] 
EN 2180 

2240 IF ta=4 AND JE(XD,YD)<>40 TH [1312] 
EN 2180 


2250 IF ta=7 AND JE(XD,YD)<>40 TH [2007] 
EN 2180 

2260 IF ta=8 AND JE(XD.YD)<>40 TH [2751] 
EN 2180 

2270 sc=sc+(cp*5):PEN 2:LOCATE 17 [3248] 
.2rPRINT " LOCATE 16,2:PRIN 

T sc 


2280 ta=ta+l:GOSUB 2800:FOR t=l T 
O 6000rNEXT:GOTO 2340 
2290 REM 
2300 REM : 

2310 REM : BRANCHEMENT TABLEAU : 
2320 REM : . 

2330 REM 


• • • 

« • • 






2340 WHILE INKEY$<>”":WEND 
2350 ON ta GOTO 2360,2370.2380.23 
90.2400,2410,2420.2430,2440 
2360 GOSUB 2660:RESTORE 2450:but= 
9*dif rGOSUB 2540:GOSUB 830:vit=80 
:mix=8:GOTO 1380 

2370 RESTORE 2460:but=6*difrGOSUB 
2540rGOSUB 830;vit=80:mix=0:GOTO 
1380 

2380 RESTORE 2470:but=9*difrGOSUB 
2540:GOSUB 830:vit=80:mix=8: GOTO 
1380 

2390 RESTORE 2480:but=6*difrGOSUB 
2540rGOSUB 830 :vit=80:mix=0:GOTO 
1380 

2400 RESTORE 2490:but=9*difrGOSUB 
2540:GOSUB 830 :vit=80:mix=8:obs = 
10 :GOTO 1380 

2410 RESTORE 2500:but=6*difrGOSUB 
2540:GOSUB 830:vit=80:mix=0:obs= 
10 : GOTO 1380 

2420 RESTORE 2510:but=9*difrGOSUB 
2540:GOSUB 830:vit=80:mix=8:obs= 
12 :GOTO 1380 

2430 RESTORE 2520:but=6*difrGOSUB 
2540:GOSUB 830 :vit=80:mix=0:obs= 
12 :GOTO 1380 

2440 RESTORE 2530rGOSUB 2620:ta=l 
rGOTO 2340 

2450 DATA “ Créer un circuit av 
ec au moins30 éléments..." 

2460 DATA " Creer un circuit av 
ec au moins20 éléments . Mais ce 
ux-ci voussont imposes..." 

2470 DATA " Creer un circuit av 
ec au moins30 éléments et un bu 
t a attein-dre." 

2480 DATA " Creer un circuit av 
ec au moins20 éléments imposes e 
t un but aatteindre.” 

2490 DATA V Creer un circuit av 
ec au moins30 éléments et maigre 
les obsta-cles." 

2500 DATA ” Creer un circuit av 
ec au moins20 éléments imposes et 
maigre lesobstacles." 

2510 DATA ” Creer un circuit av 
ec au moins30 éléments maigre les 
obstacleset atteindre le but im 
pose." 

2520 DATA " Creer un circuit av 
ec au moins20 éléments imposes 
maigre lesobstacles et le but im 
pose. " 

2530 DATA " 


[2394] 

[1823] 

[419] 

[1761] 

[419] 

[1823] 

[1786] 

[2191] 

[3338] 

[4708] 

[4491] 

[3218] 

[5387] 

[3259] 

[6386] 

[4612] 

[2863] 

[4376] 

[7680] 

[5788] 

[8154] 

[5481] 

[7331] 

[6957] 

[8024] 


Et si on recommença [2598] 









it. . . . " 

2540 PAPER #2,0:FOR h=7 TO 39:WIN [4538] 
DOW #3.h.h.4.24:CLS #3:NEXT 
2550 PEN 3 :LOCATE 19.5:PRINT"NIVE [5025] 
AU"; TA:PEN 2:LOCATE 19,6:PRINT ”= 

M 


2560 IF dif=2 THEN but=but+6 [1515] 

2570 PEN 3 :LOCATE 9,11:PRINT "Voi [5599] 

ci votre mission.”:READ a$ 

2580 LOCATE #2,3,12:PRINT #2,a$:b [3826] 

$=RIGHT$(STR$(but).2):PEN 3 

2590 LOCATE 7,17:PRINT b$:PEN 2:L [5044] 

OCATE 18,23:PRINT "Une touche si 

pare..." 

2600 WHILE INKEY$="":SOUND 2,INT( [3544] 
RND* 500),4,3 :WEND 

2610 CALL &BCA7:FOR h=7 TO 39:WIN [2138] 
DOW #3,h.h.4.24:CLS #3:NEXT:RETUR 
N 

2620 PAPER #2,0:FOR h=7 TO 39:WIN [4538] 
DOW #3,h,h,4,24:CLS #3:NEXT 
2630 PEN 3:LOCATE 21,5:PRINT"BRAV [3519] 
O":PEN 2:LOCATE 21.6:PRINT "===== 

tt 

2640 READ a$:GOTO 2580 [911] 

2650 REM : : : CHOIX DE NIVEAU : : : : [995] 
2660 PAPER #2,0:FOR h=7 TO 39:WIN [4538] 
DOW #3,h,h,4,24:CLS #3:NEXT 
2670 PEN 3 :LOCATE 18.12:PRINT "1 [5916] 

- FACILE":LOCATE 18.15:PRINT "2 - 
MOYEN":LOCATE 18.18.-PRINT "3-1 
MPOSSIBLE” 

2680 A$=INKEY$: IF A$=”" THEN 2680 [1576] 
2690 A=VAL(A$): IF A<1 OR A>3 THEN [1650] 
2680 

2700 ON A GOTO 2710,2720.2730 [1170] 

2710 PRINT CHR$(7):LOCATE 8.23:PE [5981] 
N 2:PRINT "Et si tu jouais aux Le 

gos_":dif=2:GOTO 2740 

2720 PRINT CHR$(7):LOCATE 8.23:PE [7204] 
N 2:PRINT "As-tu le niveau requis 
?” :dif=3:GOTO 2740 

2730 PRINT CHR$(7):LOCATE 8,23:PE [5076] 
N 2:PRINT "La gamelle que tu te p 
repares.":dif=4 

2740 FOR h=l TO 4000:NEXT:RETURN [1939] 
2750 REM :::::::::::::::::::::::: [1823] 
2760 REM : : [419] 


2770 REM : LES MUSIQUES : [903] 

2780 REM : : [419] 

2790 REM :::::::::::::::::::::::: [1823] 


2800 music=INT(RND*3)+l:ON music [3766] 
GOTO 2810,2820,2830 

2810 RESTORE 2910:GOTO 2840 [1549] 

2820 RESTORE 2920:GOTO 2840 [1900] 

2830 RESTORE 2930 [820] 

2840 tempo=12 :note=l :WHILE noteo [2493] 

0 

2850 READ note,duree [1245] 

2860 SOUND 49,note/2,INT(tempo/2* [2760] 
duree*0.8334),15 

2870 SOUND 42.note.INT(tempo*dure [2224] 
e*0.8334),15 

. 2880 SOUND 28.note/3,INT(tempo/2* [2376] 
duree*0.8334),15 

2890 WEND [390] 

2900 FOR t=l TO 1000:NEXT t:CALL [2127] 
&BCA7:RETURN 

2910 DATA 478,1,426.1,379,2.319,2 [5332] 
.319,2,478.1.426.1,379.2.319,2,31 
9,2,478.1.426.1.379.2,319.2.358.2 
.506,2.478.3.0,0 

2920 DATA 478,2,319,1,358,1.379.2 [9219], 
.478,2.284.1,319.1,358,2,478,2.25 

3.1.284.1.319.2.239.2.478.2.319.1 
.358,1,379,2,478.2,284,1,319.1.35 

8.2.478.2.253.1.284.1.319.2.239.2 

. 0.0 

2930 DATA 478,2,426.1,358,1.379,1 [8696] 
,426,1.319,2,319,2.319.1.284,1,37 

9.1.358.1.426.2.426.2.426.1.358.1 
,379,1.426,1.478,1.239,1,253,1.28 

4.1.319.1.358.1.379.1.426.1.478.1 

. 0.0 

2940 RESTORE 2950:FOR s=0 TO l:FO [13234] 
R i=l TO 7:READ sdl.sd2: SOUND l.s 
dl.sd2,7 : SOUND 4.(sdl+100),sd2.7 : 

NEXT:RESTORE 2950:NEXT:RESTORE 29 
60:FOR s=0 TO l:FOR i=l TO 4:READ 
sdl.sd2: SOUND 1,(sdl/2),sd2,7,1 : 

SOUND 4,sdl.sd2.7.1 :NEXT: RESTORE 
2960:NEXT:RETURN 

2950 DATA 300,25,200.30.250.12.30 [2804] 

0,12,250.12.240,35.200.110 

2960 DATA 100,30.150,60,200,30,15 [1721] 

0.100 
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PROGRAMMATION 


22 



SIMPLEX 3D 


A pparemment, le scénario 
est des plus simples: un 
nombre précis d'objets 
vous est réclamé dans chacun 
des tableaux en trois dimen¬ 
sions. Hélas, outre qu’il est sui¬ 
cidaire de revenir sur ses 
traces, la répartition des objets, 
la configuration du décor et 
quelques téléportations com¬ 
pliquent sérieusement l'aven¬ 
ture. 


Sauvegarde 

Sauvez sous un nom de votre 
choix, le programme Basic 
principal. Entrez ensuite par 
Amsaisie V.2 en vous reportant 


Méfiez-vous des exigeances de votre 
ordinateur. Elles risquent de vous rendre 

fou!.. 



à son mode d'emploi, les deux 
listings de codes hexadéci¬ 
maux. 


Nom 

Adr. déb. Long 

SIMSPRIT 

&8000 

&7C8 

SIMROUT 

&9D20 

&400 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 

Claude Le Moullec 


10 REM :::::::::::::::::::::::: 

20 REM : : 

30 REM : SIMPLEX 3D : 
40 REM : : 

50 REM :::::::::::::::::::::::: 
60 REM : : 

70 REM : LMC SOFTWARE : 

80 REM : : 

90 REM : Claude LE MOULLEC : 

100 REM : : 

110 REM :::::::::::::::::::::::: 
120 MEMORY &7FFF 
130 LOAD "ISIMSPRIT",&8000 
140 LOAD "1SIMROUT”,&9D20 
150 x=0:FOR h=&A017 TO &A04F:a=PE 
EK(h):POKE &A100+X,a:x=x+l:NEXT 
160 POKE &A10D,16:POKE &A115.8 
170 REM :::::::::::::::::::::::: 
180 REM : : 

190 REM : VARIABLES DE BASE : 
200 REM : : 

210 REM :::::::::::::::::::::::: 
220 MODE 0:BORDER 0:RESTORE 230:F 
OR h=0 TO 15 :READ a : INK h.a :NEXT 
230 DATA 0.2,1.13.26,15.11,20.9,3 
.12,6,13,24,8.18 

240 DEF FN po(x,y)=&C000+(y-l)*16 
0+(x-l)*8 

250 DEF FN le(x,y)=&C000+(y-l)*80 
+(x-l)*2 

260 DIM al$( 12) :DIM je(ll.11):vie 
=4 :ta=l 

270 FOR h=l TO 8 :sp(h)=&8480+(&5A 
*(h-l)):NEXT 


[1823] 

[419] 

[1253] 

[419] 

[1823] 

[419] 

[538] 

[419] 

[2031] 

[419] 

[1823] 

[150] 

[1183] 

[1551] 

[3726] 

[1369] 

[1823] 

[419] 

[2081] 

[419] 

[1823] 

[2588] 

[2193] 

[591] 

[1984] 

[1685] 

[2497] 


280 WINDOW #1,2,19,2,20:ENT 4,150 [2374] 


.5,12:ENV 4,10,5,3 

290 GOSUB 2650:mu=REMAIN(0):CLS [1934] 
300 REM :::::::::::::::::::::::: [1823] 

310 REM : : [419] 

320 REM : DECOR DE BASE : [1019] 

330 REM : : [419] 

340 REM :::::::::::::::::::::::: [1823] 


350 DATA 1.1.20.1.21.20.1,25.20,1 [2211] 
,1.25,20,1,25 

360 DATA 5.5.21,5.10.5.21.5,15.5.' [1948] 
21,5 

370 el = 5:e2=ll:RESTORE 350:FOR i= [2820] 
1 TO 8:GOSUB 380 :NEXT: GOTO 450 
380 READ X,Y,L:xl=14+(X-l)*32:yl= [2428] 
388-(Y-l)*16 

390 IF i>3 THEN 430 [1058] 

400 FOR J=0 TO 4 STEP 2:PLOT xl.y [3855] 
1+j,el: DRAW xl+(l-l)*32+4.yl+i:NE 
XT 

410 FOR J=6 TO 10 STEP 2:PLOT xl, [4042] 

yl+j,e2:DRAW xl+(l-l)*32+4,yl+j:N 

EXT 

420 RETURN [555] 

430 PLOT xl+4,yl+2,el: DRAW xl+4.y [2465] 
1+2-(1-1)*16 

440.PLOT xl.yl+2,e2:DRAW xl,yl+2- [1963] 
(1-1 )*16 :RETURN 

450 CALL &A100,&E69A.&8200:CALL & [2850] 
Al00,&E6AE,&8280 

460 CALL &A100,&E6C2,&8300:GOSUB [2741] 
1130:GOTO 2420 

470 REM [1823] 

480 REM : : [419] 

























490 REM : TABLEAU +1 

500 REM 
510 REM 

520 CLS #1:0N ta GOTO 530.540.550 

,560.570.580.590.600.610.620.630. 

640.650.660.670.680.690.700.710.7 

20.730.740.750.760.770 

530 RESTORE 3010:GOSUB 830:GOTO 1 

230 

540 RESTORE 3030:GOSUB 830:GOTO 1 
230 

550 RESTORE 3050:GOSUB 830:GOTO 1 
230 

560 RESTORE 3070:GOSUB 830:GOTO 1 
230 

570 RESTORE 3090:GOSUB 830:GOTO 1 
230 

580 RESTORE 3110:GOSUB 830:GOTO 1 
230 

590 RESTORE 3130:GOSUB 830:GOTO 1 
230 

600 RESTORE 3150:GOSUB 830:GOTO 1 
230 

610 RESTORE 3170:GOSUB 830:GOTO 1 
230 

620 RESTORE 3190:GOSUB 830:GOTO 1 
230 

630 RESTORE 3210:GOSUB 830:GOTO 1 
230 

640 RESTORE 3230:GOSUB 830:GOTO 1 
230 

650 RESTORE 3250:GOSUB 830:GOTO 1 
230 

660 RESTORE 3270:GOSUB 830:GOTO 1 
230 

670 RESTORE 3290:GOSUB 830:GOTO 1 
230 

680 RESTORE 3310:GOSUB 830:GOTO 1 
230 

690 RESTORE 3330:GOSUB 830:GOTO 1 
230 

700 RESTORE 3350:GOSUB 830:GOTO 1 
230 

710 RESTORE 3370:GOSUB 830:GOTO 1 
230 

720 RESTORE 3390:GOSUB 830:GOTO 1 
230 

730 RESTORE 3410:GOSÜB 830:GOTO 1 
230 

740 RESTORE 3430:GOSUB 830:GOTO 1 
230 

750 RESTORE 3450:GOSUB 830:GOTO 1 
230 

760 RESTORE 3470:GOSÜB 830:GOTO 1 
230 

770 TA=1: GOTO 520 
780 REM 
790 REM 
800 REM 
810 REM 
820 REM 

830 DEF FN po(x,y)=&C000+(y-l)*80 
+(x-l)*4 

840 ERASE je:DIM je(ll.ll) 

850 FOR h=l TO 10 :READ al 
860 al$(h)=BIN$(al,10):NEXT 
870 FOR h=l TO 10:FOR g=l TO 10 
880 bl$=MID$(al$(h).g.1):bl=VAL(b 
1 $) 


[574] 

[419] 

[1823] 

[6854] 



[1713] 

[1888] 

[1233] 

[2181] 

[1623] 

A 

[829] 

[1713] 

[1888] 

[1233] 

[2181] 

[1233] 

[829] 

[1623] 

[1888] 

[2579] 

[1888] 

[1674] 

[2181] 

[1713] 

[2313] 

[1623] 

[2313] 

[1674] 

[829] 

[729] 

[1823] 

[419] 

[1952] 

[419] 

[1823] 

1591] 

[1374] 

[1539] 

[1147] 

[1228] 

[2145] 


890 IF bl=0 THEN 910 ELSE je(g,h+ [2201] 
1 )=1 

900 ax=(g+h)-1:by=(12+h)-g:CALL & [3309] 

A100.FN po(ax.by),&8000 

910 NEXT g.h [389] 

920 READ P5.P6,P7:FOR z=l TO P5:R [5299] 

EAD g.h :ax=(g+h)-2 :by=(11+h)-g 

930 CALL &A100.FN po(ax.by),&8400 [3045] 

:je(g.h)=5:NEXT 

940 FOR z=l TO P6:READ g,h:ax=(g+ [2949] 
h)-2:by=(ll+h)-g 

950 CALL &A100.FN po(ax.by),&8380 [2484] 
:je(g.h)=6:NEXT 

960 FOR z=l TO P7:READ g.h:ax=(g+ [1436] 
h)-2:by=(11+h)-g 

970 CALL &A100.FN po(ax.by).&8750 [2158] 
:je(g.h)=8:NEXT 

980 READ PI,P2,P3:FOR z=l TO PI [1365] 
990 g=INT(RND*9)+2:h=INT(RND*9)+2 [3186] 
: IF je(g,h)ol THEN 990 
1000 ax=(g+h)-2:by=(ll+h)-g [1468] 

1010 CALL &A100.FN po(ax.by),&820 [3026] 
0:je(g,h)=2:NEXT 

1020 FOR z=l TO P2 [988] 

1030 g=INT(RND*9)+2:h=INT(RND*9)+ [3162] 
2 : IF je(g.h)ol THEN 1030 
1040 ax=(g+h)-2:by=(ll+h)-g [1468] 

1050 CALL &A100.FN po(ax.by).&828 [2677] 
0: je(g,h)=3 :NEXT 

1060 FOR z=l TO P3 [987] 

1070 g=INT(RND*9)+2:h=INT(RND*9)+ [3122] 
2: IF je(g.h)ol THEN 1070 
1080 ax=(g+h)-2:by=(ll+h)-g [1468] 

1090 CALL &A100.FN po(ax.by).&830 [2813] 
0:je(g,h)=4:NEXT 

1100 READ PI,P2,P3:GOSUB 2240:GOS [2306] 
ÜB 2260:GOSUB 2280:READ X.Y 
1110 GOSUB 2300:GOSUB 2310:RETURN [2349] 
1120 REM ::: LETTRAGE :::: [1116] 

1130 DATA 2,23,"00".12.23,"00".22 [4488] 
.23."00".30.5.22."VIE: 00",30.5.2 
3."TAB: 00".30.5,24."SCO:0000" 

1140 FOR H=1 TO 6 :READ LX,LY,A$:G [3086] 
OSUB 1150:NEXT:RETURN 

1150 A$=UPPER$(A$): FOR T=1 TO LEN [3508] 
(A$):PS=(ASC(MID$(A$,T.1)))-48 
1160 IF PS<0 OR PS>42 THEN PS=43 [1039] 

1170 CALL &9D20.FN LE(LX.LY)+(T*2 [3861] 
).&9D4 0+(PS*16):NEXT:RETURN 


1180 REM ::::::::::::::::::::::: [1736] 

1190 REM : : [419] 

1200 REM : ROUTINE PRINCIPALE : [2225] 

1210 REM : : [419] 

1220 REM ::::::::::::::::::::::: [1736] 


1230 DEF FN po(x,y)=&C001+(y-l)*8 [620] 
0+(x-l)*4 

1240 POKE &A02C,5:POKE &A024.18:a [2331] 
dd=FN po(x+y-2.10+y-x) 

1250 CALL &A054,add:CALL &A017,ad [4517] 
d,sp(5):POKE &A00D.&C5:GOTO 1660 
1260 IF INXEY(0)*INKEY(72)=0 THEN [2019] 
1320 

1270 IF INKEY(2)*INKEY(73)=0 THEN [915] 
1380 

1280 IF INKEY(8)*INKEY(74)=0 THEN [1388] 
1440 

1290 IF INKEY(1)*INKEY(75)=0 THEN [1132] 
1500 

1300 GOTO 1260 [351] 


23 















1310 REM : : : VERS LE HAUT : : : [881] 

1320 IF je(x,y-l)=0 THEN 1260 [910] 

1330 CALL &A074,add:CALL &A054.ad [3006] 
d+8110:CALL &A017.add+8110,sp(7) 

1340 FOR t=l TO 100:NEXT t:ad=add [320m 
+8110:X1=X:Y1=Y 

1350 y=y-l:add=FN po(x+y-2.10+y-x [4432] 
):CALL &A074,ad:GOSDB 1560 
1360 CALL &A0 5 4,add:CALL &A017.ad [2668] 
d.sp(8):ac=8:GOTO 1660 

1370 REM : : : VERS LE BAS : : : [1275] 

1380 IF je(x,y+l)=0 THEN 1260 [623] 

1390 CALL &A074.add:CALL &A054.ad [3111] 
d+8194:CALL &A017.add+8194.sp(3) 

1400 FOR t=l TO 100:NEXT t:ad=add [1976] 
+8194:X1=X:Y1=Y 

1410 y=y+l:add=FN po(x+y-2.10+y-x [2794] 

):CALL &A074,ad :GOSUB 1560 

1420 CALL &A054,add:CALL &A017.ad [3072] 

d.sp(4):ac=4:GOTO 1660 

1430 REM ::: A GAUCHE : : : [1052] 

1440 IF je(x-l,y)=0 THEN 1260 [825] 

1450 CALL-&A074.add:CALL &A054,ad [3433] 

d+8190:CALL &A017,add+8190.sp(1) 

1460 FOR t=l TO 100:NEXT t:ad=add [3144] 
+8190:X1=X:Y1=Y 

1470 x=x-1 :add=FN po(x+y-2.10+y-x [3559] 

):CALL &A074.ad:GOSUB 1560 

1480 CALL &A054,add:CALL &A017.ad [4258] 

d.sp(2):ac=2:GOTO 1660 

1490 REM : : : A DROITE : : : [1375] 

1500 IF je(x+l,y)=0 THEN 1260 [917] 

1510 CALL &A074,add:CALL &A054.ad [3344] 

d+8114:CALL &A017.add+8114.sp(5) 

1520 FOR t=l TO 100:NEXT t:ad=add [2154] 
+8114 :X1=X:Y1=Y 

1530 x=x+l:add=FN po(x+y-2,10+y-x [3453] 

):CALL &A074,ad:GOSUB 1560 

1540 CALL &A054,add:CALL &A017.ad [3305] 


d, sp(6):ac=6:GOTO 1660 

1550 REM ::: EFFACE DALLE ::: [1286] 

1560 IF PT=0 THEN 1590 [169] 

1570 ax=(Xl+Yl)-2:by=(11+Y1)-XI :C [4383] 
ALL &A100,(FN po(ax,by))-l,&8000 
1580 PT=PT-1:je(xl,yl)=l:RETURN [2037] 
1590 ax=(Xl+Yl)-2:by=(11+Y1)-Xl:C [4175] 
ALL &A100,(FN po(ax.by))-l,&8080 
1600 je(xl,yl)=7:RETURN [939] 

1610 REM [1736] 

1620 REM : : [419] 

1630 REM : DIVERS CONTACTS : [925] 

1640 REM : : [419] 

1650 REM ::::::::::::::::::::::: [1736] 

1660 SOUND 1,100,2,5:1F je(x,y)=l [3083] 
THEN 1260 ELSE a=(je(x,y))-1 
1670 ON a GOTO 1680,1710.1730,175 [2281] 
0.1760.2020.1840 

1680 P1=P1-1: IF P1<0 THEN Pl=l [1448] 

1690 GOSUB 2240:sc=sc+5:GOSUB 232 [2804] 
0:GOTO 1700 

1700 IF P1=0 AND P2=0 AND P3=0 TH [2094] 
EN 1980 ELSE 1260 

1710 P2=P2-1: IF P2<0 THEN P2=l [584] 
1720 GOSUB 2260:sc=sc+5:GOSUB 232 [2568] 
0:GOTO 1700 

1730 P3=P3-1: IF P3<0 THEN P3=l [1024] 
1740 GOSUB 2280:sc=sc+5:GOSUB 232 [2100] 
0 : GOTO 1700 

1750 PT=5: GOTO 1260 [1110] 


1760 A=INT(RND*3)+1: IF A=1 AND PI [2682] 
=0 THEN 1760 ELSE 1670 

1770 IF A=2 AND P2=0 THEN 1760 EL [1402] 
SE 1670 

1780 IF A=3 AND P3=0 THEN 1760 EL [2131] 


SE 1670 

1790 REM ::::::::::::::::::::::: [1736] 
1800 REM : [419] 

1810 REM : TRANSFERT : [1244] 

1820 REM : : [419] 

1830 REM ::::::::::::::::::::::: [1736] 


1840 SOUND 1,1000,25,15,4,4.5:CAL [2231] 
L &A074,ADD:ax=(X+Y)-2:by=(11+Y)- 
X 

1850 CALL &A100.CFN po(ax.by))-l, [2907] 
&8180:FOR T=1 TO 200:NEXT 
1860 CALL &A100,(FN po(ax.by))-l. [3587] 

&8100:FOR'T=1 TO 200:NEXT 


1870 CALL &A100,(FN po(ax.by))-l, [2014] 
&8750 

1880 g=INT(RND*9)+2:h=INT(RND*9)+ [3176! 

2: IF je(g,h)ol THEN 1880 

1890 ax=(g+h)-2:by=(11+h)-g:CALL [2406; 

&A100,(FN po(ax,by))-l.&8180 

1900 FOR T=1 TO 200:NEXT:CALL &A1 [3068! 

00,(FN po(ax,by))-l.&8100 

1910 FOR T=1 TO 200:NEXT:CALL &A1 [3056; 

00,(FN po(ax,by))-l,&8000 

1920 FOR T=1 TO 100 :NEXT: SOUND 1. [3129] 

1000,25,15,4,4,5:X=G:Y=H:GOTO 123 


0 

1930 REM ::::::::::::::::::::::: [1736] 

1940 REM : : [419] 

1950 REM : GAGNE/PERDU : [1324] 

1960 REM : : [419] 

1970 REM ::::::::::::::::::::::: [1736] 


1980 pt=0 


ta=ta+l: INK 0,6,18:FOR 


[1773] 


h=l TO 20 


1990 SOUND l,h*10.10,14:NEXT: FOR [4044] 
t=l TO 500:NEXT 

2000 INK 0,0:GOTO 520 [712] 

2010 REM : : : VIE - 1 : : : [637] 

2020 IF PT>0 THEN 1260 [305] 

2030 CALL &A095,ADD,SP(AC): FOR H= [2845] 
1 TO 17:CALL &A074,add 

2040 CALL &A0AD:FOR T=1 TO 150:NE [4116] 
XT T,H:CALL &A074,add 

2050 SOUND 1,239,20,6:SOUND 1,0,2 [7574] 
,6 : SOUND. 1.239,20,6 : SOUND 1,319,2 
0.6:SOUND 1,213.20.6 : SOUND 1,239, 

40.6:SOUND 1,319,20,6 

2060 POKE &A024,18:FOR t=l TO 300 [2604] 
0:NEXT:REM UN OS TEL CLAUDE 96 38 
94 24 


2070 vie=vie-l: IF vie=0 THEN 2090 [2646] 
ELSE GOSUB 2300:GOTO 520 
2080 REM ::: PERDU ::: [1027] 

2090 CLS #1 :lx=12:ly=ll:a$=" A < [1576] 
B < C < D ":GOSUB 1150 
2100 RESTORE 2940:EVERY 10 GOSUB [935] 
2920 

2110 A$=INKEY$: IF A$=" M THEN 2110 [1530] 
2120 A$=UPPER$(A$): IF A$="A" THEN [2472] 
TA=1:GOTO 2170 

2130 IF A$="B" THEN TA=7:GOTO 217 [1722] 
0 

2140 IF A$=’’C” THEN TA=13:GOTO 21 [1132] 
70 

2150 IF A$=”D” THEN TA=19:GOTO 21 [1825] 

















70 

2160 GOTO 2110 [357] 

2170 MU=REMAIN(0):CALL &BCA7:LX=3 [3799] 
3.5:LY=23:A$=”TAB: 00":GOSUB 1150 
2180 SC=0:GOSOB 2320 :VIE=4:GOSUB [3625] 


2300::PT=0:GOTO 520 

2190 REM ::::::::::::::::::::::: [1736] 

2200 REM : : [419] 

2210 REM : GESTION COMPTEURS : [2235] 

2220 REM : : [419] 

2230 REM ::::::::::::::::::::::: [1736] 


2240 LY=23:A$=”00”:LX=2:GOSUB 115 [2769] 
0 :A$=STR$(P1 ) 

2250 IF Pl<10 THEN LX=3:GOTO 2360 [2794] 
ELSE LX=2:GOTO 2360 

2260 LY=23:A$=”00":LX=12:GOSUB 11 [3502] 
50 :A$=STR$(P2) 

2270 IF P2<10 THEN LX=13:GOTO 236 [2982] 
0 ELSE LX=12 : GOTO 2360 

2280 LY=23:A$=”00":LX=22:GOSUB 11 [2082] 
50 :A$=STR$(P3) 

2290 IF P3<10 THEN LX=23:GOTO 236 [2739] 
0 ELSE LX=22:GOTO 2360 

2300 LY=22:A$=STR$(vie):lx=36.5:G [2628] 
OTO 2360 

2310 LY=23:A$=STR$(ta): IF ta<10 T [4743] 
HEN LX=36.5 : GOTO 2360 ELSE LX=35. 

5:GOTO 2360 

2320 IF sc=0 THEN a$="0000":LY=24 [3101] 
:LX=34.5 :GOSUB 1150:RETÜRN 
2330 A$=STR$(sc): IF sc<10 THEN LY [3817] 
= 24 :LX=37.5 : GOTO 2360 

2340 IF sc<100 THEN LY=24:LX=36.5 [1443] 
:GOTO 2360 

2350 LY=24:LX=35.5 : GOTO 2360 [1800] 

2360 A$=RIGHT$(A$.LEN(A$)-1):GOSU [2851] 



2370 REM ::::::::::::::::::::::: [1736] 

2380 REM : : [419] 

2390 REM : PRESENTATION : [1647] 

2400 REM : : [419] 

2410 REM ::::::::::::::::::::::: [1736] 


2420 GOSUB 2570:lx=14:ly=9:a$=“l [2796] 

: REGLES":GOSUB 1150 

2430 lx=14:ly=13:a$=”2 : START”:G [2391] 
OSUB 1150:GOSUB 2560 

2440 A$=INKEY$: IF A$="" THEN 2440 [1496] 
24 50 IF A$="1" THEN 2470 . [968] 


2460 IF A$="2" THEN 520 ELSE 2440 [1498] 
2470 CLS #1 : RESTORE 2490:FOR H=3 [2775] 

TO 19 STEP 2:READ A$ 

2480 LY=H:LX=2:GOSUB 1150:NEXT:CA [4642] 
LL &BB18:CLS #l:GOTO 2420 
2490 DATA "TRES SIMPLEcVOUS DEVEZ [2211] 
RAMASSER LE" 

2500 DATA "NOMBRE D>OBJETS QUI VO [2576] 
US EST DEMANDE" 

2510 DATA "POUR QUE TOUS LES COMP [3295] 
TEURS TOMBENT"."A ZEROc" 

2520 DATA "IL Y BIEN QUELQUES SUR [4778] 
PRISES MAIS”,"CELA RESTE UN JEU S 
IMPLEc" 

2530 DATA "SI SIMPLE QU>IL VOUS E [2004] 
ST QUAND MEME" 

2540 DATA "CONSEILLE DE PRENDRE D [2294] 
E L>ASPIRINE<" 

2550 DATA " UNE TOU [1190] 

CHE S<V<P” 

2560 GOSUB 2580 : FOR h=0 TO 25:GOS [3633] 
UB 2 5 9 0 :NEXT:RETURN 

2570 GOSUB 2580:FOR h=25 TO 0 STE [3642] 

P -1 :GOSUB 2590:NEXT:RETURN 

2580 FOR h=l TO 40:SOUND 1.2050-C [2521] 

50*h).10.15 :NEXT:RETURN 

2590 OUT &BC00,1:OUT &BD00.15+H [590] 

2600 OUT &BC00,6 :OUT &BD00.h [615] 

2610 OUT &BC00,2:OUT &BD00.34+INT [2330] 

(h/2) 

2620 OUT &BC00,7 :OUT &BD00.18+INT [1645] 
(h/2) 

2630 SOUND 1,10+11*3.5.3.4.4 [1722] 

2640 FOR g=l TO 8 :NEXT:RETURN [2501] 

2650 RESTORE 2940:EVERY 10 GOSUB [935] 
2920 

2660 LOCATE 1.22:PEN 1:PRINT STRI [5975] 
NG$(60,143);:FOR M=0 TO 2:ORIGIN 
-170+M*170,40* (Mol ) 

2670 R=100:P=R*R:FOR X=-R TO R ST [6074] 
EP 4 :Y=SQR(P-X*X):PLOT 320+X.300- 
Y,12:DRAWR 0.2*Y:NEXT:R=40:P=R*R 
2680 FOR X=-R TO R STEP 4:Y=SQR(P [9791] 
-X*X)/3:PLOT 320+X.210+Y.0:DRAWR 
0,-2:DRAWR 0.-0.4*Y.5 :DRAWR 0.-1. 

6*Y,11 :DRAWR 0,-2,0:DRAWR 0,-120+ 

40*(M=l).9 :NEXT 

2690 c=0:R=30-C*8:P=R*R:FOR X=-R [6803] 
TO R STEP 4:Y=SQR(P-X*X):PLOT 320 
+X.258-Y-C*8.5 :DRAWR 0,Y*Y/8:NEXT 
X 

2700 c=l:R=30-C*8:P=R*R:FOR X=-R [6397] 
TO R STEP 4 :Y=SQR(P-X*X):PLOT 320 
+X.258-Y-C*8.13:DRAWR 0,Y*Y/8:NEX 
T X 

2710 c=2:R=30-C*8:P=R*R:FOR X=-R [4991] 
TO R STEP 4:Y=SQR(P-X*X):PLOT 320 
+X.258-Y-C*8.4 :DRAWR 0.Y*Y/8:NEXT 
X 

2720 PLOT 316,210.0:DRAWR 0.20:DR [4953] 
AWR 4,0:DRAWR 0,-20:NEXT:ORIGIN 0 
.0 

2730 INK 2.0:PLOT -10.-10.2 :a$="S [1645] 
IMPLEX 3D” 

2740 TAG: FOR H=1 TO LEN(A$):B$=MI [3104] 
D$(A$.H,1):MOVE (H*36)-36.14:PRIN 
T B$; :NEXT:TAGOFF 

2750 ENC=6:EN2=7:Y=340:X=142 [14571 

2760 FOR G=0 TO 14 STEP 2:FOR H=0 [1911' 
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TO 432 STEP 2 

2770 IF TEST(H,2+G)=2 THEN GOSUB [1827] 
2790 

2780 NEXT H.G:LOCATE 1,1:PRINT NR [2795] 
$ ; SPACE$(18): INK 2.1:GOTO 2800 
2790 PLOT H+X,Y+(G*2),ENC:PLOT H+ [1582] 
X.Y+2+(G*2),EN2:RETURN 

2800 PEN 0:LOCATE 1,25:PRINT SPAC [1824] 
E$(12) 

2810 FOR H=1 TO 5:MOVE 30,H:DRAW [5029] 
610,H,15 :NEXT: FOR H=6 TO 20:MOVE 
30.H:DRAW 610.H.14 :NEXT 
2820 FOR H=20 TO 22:MOVE 30,H:DRA [5206] 
W 610,H,11 :NEXT: FOR H=1 TO 8:MOVE 
H,26:DRAW H,374.15 :NEXT 
2830 FOR H=8 TO 20:MOVE H.26:DRAW [6078] 
H,374,14:NEXT:FOR H=20 TO 22:MOV 
E H,2 6 : DRAW H,374,11:NEXT 
2840 FOR H=616 TO 620:MOVE H,26:D [4814] 
RAW H,374,11:NEXT:FOR H=620 TO 63 
2 :MOVE H,26:DRAW H,374.14:NEXT 

2850 FOR H=632 TO 636:MOVE H,26:D [5960] 

RAW H,374,15 :NEXT: FOR H=394 TO 40 

0:MOVE 30,H:DRAW 610.H.15:NEXT 

2860 FOR H=382 TO 392:MOVE 30,H:D [3749] 

RAW 610,H.14 :NEXT: FOR H=378 TO 38 

0 :MOVE 30,H:DRAW 610,H.11:NEXT 

2870 X=20:FOR T=1 TO 22:MOVE T.X: [2875] 

DRAW T,20,15 :X=X-1 :NEXT T 

2880 X=380: FOR T=1 TO 22:MOVE T.X [3296] 

:DRAW T,380 :X=X+1:NEXT T 

2890 X=380:FOR T=618 TO 636:MOVE [3310] 

T,380:DRAW 618,X:X=X+1:NEXT T 

2900 X=1: FOR T=618 TO 636:MOVE T, [2075] 

• 20:DRAW T.X:X=X+1:NEXT T 
2910 A$="LMC SOFTWARE":LX=2:LY=23 [4863] 
:GOSUB 1150:WHILE INKEY$="":WEND: 

RETURN 

2920 pp=pp+1 :READ bb:IF bb=-l THE [3251] 

N RESTORE 2940:READ bb:pp=l 

2930 SOUND 1.bb*4.20.7:SOUND 2,bb [4757] 

.20.7:SOUND 4.200+pp*10.20,6:RETU 

RN 

2940 DATA 60.53.47.45.60.0.45.47. [3763] 
45.40.53.0.53.0.53.47.45.36.40.40 


.45.45.47.53.47.60.53.47.-1 
2950 REM ::::::::::::::::::::::: [1736] 

2960 REM : : [419] 

2970 REM : DATA TABLEAUX : [1427] 

2980 REM : 2 lignes par tab : [1246] 

2990 REM : : [419] 

3000 REM ::::::::::::::::::::::: [1736] 


3010 DATA 511,511.511.511.511.511 [1842] 
.511.511,511.0 

3020 DATA 1.1.1,4.9.10.10.6.6.4.3 [1747] 
13 3 13 8 

3030 DATA 511.511.511.511.511.325 [2124] 
.325,325,381.0 

3040 DATA 1.0.1.8.10,6.3.4.4.4,3. [1480] 
3.3.6.10 

3050 DATA 511.511.511.511.511.511 [1842] 
.511.511,511.0 

3060 DATA 1.1.1.9.9.6.4.3.8.12.12 [2645] 

. 12 . 11 . 11 , 11 , 2.2 

3070 DATA 56.56.56.511.511.511.56 [1947] 
, 56,56,0 

3080 DATA 1.1.1.5.5.6.6.7.7.4.3.2 [1686] 
3 3 2 2 5 

3090'DATA 511.511.384.511.511.3.3 [843] 


.511.511.0 

3100 DATA 1.1.1.4.2.6.2.2.9.5.5.5 
4542,2 

3110 DATA 495,495,495.511.56.511. 
495,495.495.0 

3120 DATA 2.1.1.8.3.4.8.5.5.6.6.4 
.4.3.3.4.3.2.10 

3130 DATA 511.511.511.455.471.455 
495 495 495 0 

3140 DATA 2.1.2.5.8.10.10.6.6,4.3 

.7,10.4.4.3.4.3.2.9.5 

3150 DATA 511.511.387.387.511.511 

.504.120.120.0 

3160 DATA 2.3.0.4.10.9.4.6.2.3.7. 

10.7.5.5.5.5.5.5.6.9 

3170 DATA 511.385,511.385.509.509 

,385.511.511.0 

3180 DATA 3.4.1.8.2.5.6.6.9.10.6. 

9.2.2.4.3.10.8.6.5.5.5.5.4.5.9.10 
3190 DATA 387.387.387.504.504.504 
.387.387.387.0 

3200 DATA 1.1.1.2.7.3,4.6.6.4,4,2 
.4.3.2,3.10 

3210 DATA 263,260,260,455,0.108,8 
4.68.68,0 

3220 DATA 4.0.5.2.2.10.2.4.10.8.1 
0.4.5.9.5.5.7.8.7.6.8.3.3.2.3.2.1 
.7.7 

3230 DATA 511.63.496,496.510.7.7, 
511.511,0 

3240 DATA 2.3.2.9,3.8.9.5.3.10.7, 
9.9.10.3.4.10.4.4.3.3.3.2.2.5 
3250 DATA 511.511.148.148,148.148 
.511.511.511,0 

3260 DATA 1.3.3.6.2.3.3.8.3,6,8.5 
.3.2.8.9,9.3.3.3,3.3,2,2,10 
3270 DATA 511.511.16.16.511.257.2 
57,511,511.0 

3280 DATA 2.1.3.10.3.2.7.9.2.6.9. 
6 . 6 . 2 . 2 . 4 , 3 . 3 , 3 . 3 . 3 . 3.6 
3290 DATA 511.511.387.387.387.387 
.387,511.511,0 

3300 DATA 2.1.2.4.3.5.9.6.10.2.7. 

9.5,3.3,3.3.3.3.9.8 

3310 DATA 511.259.262.268.281.305 

.97.193.511,0 

3320 DATA 2.1.2.10.7.7.5.8.2.2.2. 

2.10.3.3.3.3.2.3.10.10 

3330 DATA 214.511.511.198.511.198 
.511.511.214,0 

3340 DATA 3.2.2.9.2.8.5.3,8.6.2.4 
.6.2.4.6.10.6.6.4.5.5.4.6.6 
3350 DATA 511.257.381.325.325.325 
.381.257.511.0 

3360 DATA 3.4.4.10.2.2.8.5.8.2.2, 
8.6.10.9.2.10.6.2.6.4.10.6.6.10.3 
.3.3,3.3,4.4.6 

3370 DATA 511.6.12.24.24.48.96.19 
2,511.0 

3380 DATA 2.2.2.7.4.4.8.7.6.5.10. 
2.2.10.10.3.2.1.3.2.1.10.2 
3390 DATA 511.273.273.273.511.273 
.273.273.511.0 

3400 DATA 2.3.2.5.6.7,6.2.4.10,6. 
6,10.10.2,2.10.3.3.3.1.4.1,2.7 
3410 DATA 387.198.108.56.511.56.1 
08.1.98,387.0 

3420 DATA 3.3.2.4.4.4.9.8.9.8.3.6 
.6.2.10.3,3.8.6.3.3.3.3,3.3,5.6 


[ 2000 ] 

[1909] 

[1231] 

[2589] 

[1752] 

[1272] 

[1660] 

[ 1200 ] 

[3405] 

[1956] 

[1801] 

[1131] 

[3293] 

[1822] 

[1620] 

[1376] 

[3012] 

[925] 

[2672] 

[1959] 

[1281] 

[2126] 

[2430] 

[1882] 

[2736] 

[1345] 

[3932] 

[1376] 

[2297] 

[1646] 

[2724] 

[1397] 

[1957] 
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3430 DATA 511,254,124.56.16.56,12 [1554] 
4.254,511.0 

3440 DATA 2,1.2,5,4.6.9.6.6.6.3.8 [1322] 
,10.3.3.3.3.2.3.4.10 

3450 DATA 387.455.237.124.56.124. [2329] 

237.455.387.0 

3460 DATA 4.4.1.3,2.10.3.5.5.9.9. [3494] 


2,3,8.3.8.7.4.8.2,10.4.4.3.4.4.2. 

6.6 

3470 DATA 56.124,238.455.387,455. [1608] 
238,124,56,0 

3480 DATA 2.4.0,6,3.4.7.3.4.9.6.7 [2054] 
.10.3.8.3.4.4.3.4,5,7.4 
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6E : DD 

9FB0:10 

10 

10 

10 

51 

51 

51 

51:29 

A108:02 

DD 

66 

03 

06 

10 

CD 

0D : 24 

9FB8: 50 

F0 

50 

F0 

45 

45 

00 

00 : 2E 

Al10 :A0 

F3 

C5 

ES 

06 

08 

IA 

E6 : 4E 

9FC0:10 

10 

10 

10 

51 

51 

00 

A2:8A 

Al 18 : AA 

28 

06 

4F 

7E 

E6 

55 

B1 :B6 

9FC8:00 

A0 

50 

50 

45 

45 

00 

00: CE 












COMPLETEZ VOTRE COLLECTION 


soi 

r^C Un super listing Pac Boy. Lis 
*_i de rôles. Jeux: Crazy Cars 
**e Deep.. Initiation: caractères 
> rontrôle. Programmation 
.i- r .cateur V.2.. hit parads... 

>Z Jeux: Wiilow... Test: Olivetti 
; “*HD. souris Logitech... 
5-ogrammation configurez votre 
-amante, liaison PC/PCW. 
l’ARI Jeux: Skweek, Rambo III... 
►ard: émulation Macintosh le ST à 
? : Mo.Calamus Musique - Track 24. 
AMIGA Woïkbench 1.3 Jeux: 
GîvMlet II, Blood. Programmation: 
s* -g 68000 

No2 

CPC. Technique: Deuxième banque 
* 64 ko. convertisseur série-parallô- 
e. modes graphiques. La PA O. 

PC. La compatfcilitô, le choix tfune 
^primante. Musique Séquence 
*D00. 

ATARI Initiation: le MIDI facile. 

Test Lisp Plus, séquenceur 
Alchimie Programmation: aidez 
votre oompta 
AMIGA. Le Basic puissance 16, les 
trucs du Workbench, dessinez avec 
DrawPkjs 

No3 

CPC Programmation: Tag et les 
modes graphiques. Raflaele Cecco • 
Master o< the CPC. votre budget sur 
CPC. 

ATARI. Programmation: les secrets 
du capitaine Blood,. Langage: le 
Stos revient en force. Test: 
Superbase II Listing: les dégradés 
en GFA 

AMIGA. Graphisme avec Deluxe 
Paint 3. Listing: bootez dans votre 
coin. Initiation: boîte à outils de 
fAmiga. 

PC. Test de fEuro PC. Programmez 
comme un pro. 

No4 

AU SOMMAIRE 

Numéro spécial vacances avec 
pleins de jeux.de tests, de casses- 
tête.. 

CPC. Programmation: Amsaise 
V2. RSX imprimante. 

ATARI. Programmation: Wilfy Nilly. 
AMIGA. Programmation: insectes 


en folie. 

PC. Programmation: casse-tôle. 

N # 5 

CPC. Programmation: les fichiers 
binaires. Amsaisie V.2. Test: OCP 
Art Studio. Initiation: ('Assembleur 
en douceur. Technique: de port en 
port I. 

ATARI. Initiation: les secrets du 
Capitaine Blood (limer, rotations et 
scrollings). Musique: te MIDI facile 
(les fonctions cféditon). Master 
Sound Listing: Créafonte. 

PC. Programmez comme un pro. 
Coin du pro: Hot line. MS-Dos 3.3. 
Initiation au C Test: Spritor. 


Hercules, Turbo Pascal 5.5 Lifting: 
Finance. 

AMIGA. Test: Excellence. Musique: 
Track 24, Big Band 
Dossier: tous les jeux de la rentrée. 
The last Crusade, Licence to Kill, 
Weird Dreams, etc. 

No6 

CPC Programmation: les fichiers 
Basic, TAssembleur en douceur (II). 
Listing: Sweek End 3D Technique: 
de port en port (II). Logiciel: Vector 
ATARI. Logiciels: ZZ Idée. Funface, 
Cubase. Langage: compilateurs 
GFA. Omfron et Stos Musique: la 
synthèse sonore. Listing: Will/s 
Brothers. 

PC. Logiciels: Superbase 2 sous 


Windows. Fantavision. First 
Publisher. Hard: le portfolio Initiation 
au C (II). Comment apprendre à pro¬ 
grammer un PC? Listing: Diam's 
Racer. 

AMIGA. Musique: Perfect Sound, 
Studio 24. Programmation: Auto- 
formez-vous au 68000. les coproces¬ 
seurs et TAssembleur. Amiga Saisie. 
Découverte: panorama sur la 30. 
Micro-synthèse: DigiPamt 3. Hard: 
A-Max. 

Dossier: Musclez votre micro 
Et tous les jeux (Knight Force, 
Passing Shot. Pirates, 
ConflictEurope, etc.) 


N°7 

CPC. Programmation : les fichiers 
ASCII, rassembleur en douceur. 
Listing : Zone 2. Technique : de port 
en port II. 

ST. Logiciels : Word Up. Craft 2. 
Fontz I. Programmation : détecteur 
de vires, affichage des sprttes. 

Listing : Editdisc. Musique : le MIDI 
facile ^échantillonnage). 

AMIGA. Programmation : autofor- 
mez-vous à r Assembleur 68000. 
Logiclela : Analyse, DW Render. 
Hard : Print Technk contre Handy 
Scanner, comment mterlacer un lec¬ 
teur externe. 

PC. Logiciels : Rapid Relay, Memory 
Mate. Utcid 3D, Hypertexte. 
Programmation : Varlist. Initiation : 


la protection des logiciels, initiation 
au C. 

DOSSIER les jeux interdits. 

N°8 

CPC. Programmation : la mémoire 
écran. Listing : Piclos. Bidouille : 
accélérez votre CPC. Logiciel : 
Grapheur. 

ST. Hard : PC Speed, le scanner 
Datascan, interface DMA-SCSI. 
Musique : le MIDI facile. 
Programmation : 5200 couleurs sur 
ST. 

AMIGA. Logiciel :Scu|pt3D XL 
Initiation : scrolling différentiel en 
sprrtes Programmation : autofor 


mez-vous à l'assembleur 68000 (les 
fonctions logiques), 16800 couleurs 
sur Amiga. 

PC. Logiciel : Print Shop Initiation : 
le C et les structures récursives. 
Programmation : programmez la 
protection des logiciels. 

DOSSIER : tous les jeux Dés à r es¬ 
pace 

N°9 

CPC. Initiation : l'assembleur en 
douceur (les registres), carte mémoi¬ 
re des CPC. Programmation : des 
allumettes dans la nuit blanche. 
Listing : Target BaH 
ST. Hard : Spectre GCR. Logiciel : 
DB Man V Bidouilla cane 2 Mo 
pourSTF. 


AMIGA. Hard : extensions de 
mémoire Initiation scrolling diffé¬ 
rentiel en sprites 

PC. Logiciel : Back Up Pro Hard : 
transferts de fichiers Télématique: 
les micro-serveurs Initiation : initia¬ 
tion au C (les fonctions pointées) 
Programmation : en attendant Tan¬ 
née dernière. 

DOSSIER : tous les jeux liés à Tes- 

paca 

N 5 10 ? 

CPC. Initiation : le nouveau discours 
de la méthode (créer un logiciel), 
l’assembleur en douceur (les modes 
d'adressage) Listings : Romba, 
Ninja, Enigma. Musiqus : Musique 
Maestro II. 

ST. Programmation : Vérificateur 
Vl .O GFA. Listing : Chemile 
AMIGA Micro-synthèse : les cartes 
accélératrices Initiation : autofor- 
mez-vous à l'assembleur 68000 (les 
registres internes) Programmation : 
Amiga saisie. Listings : Kanguru 
Méditation. Bootblock Maker V2. 

PC. Initiation : le C et les lichiers 
DOSSIER : les vires sur Amiga et ST 

N°11 

SPECIAL ATARI ST 
Lss machines : ST, STF, STE, Méga 
ST, console Lynx Logiciels : lan¬ 
gages, traitements de texte, PAO, 
tableurs, SGBD, gestion, verticaux, 
communication, dessin, animation, 
utilitaires, musicaux Hard : émula¬ 
teurs. disques durs, imprimantes, 
grands écrans. Bidouilles : une 
seule prise pour les deux moniteurs, 
adaptation <fun tracfc-ball 800 XL sur 
ST. 

N°12 

CPC. Initiation : premiers pas avec 
Devpac. Programmation : le fichier 
de REM. Listings : L'omelette infer¬ 
nale, Good moon. Bidouilles : pon 8 
bits, montage <fun lecteur 5'i/4. 

ST. Initiation : les modes <f adressa¬ 
ge. Listing : Paco. 

AMIGA. Initiation : les modes 
cfadressage. Listing : Volumix. 
Bidouilla : joystick automatique. 

PC. Initiation : les tris. Listings : 
Notedit, Putget. 



! HORS SERIE N°1 

; Guide de la gamme «pro» Amstrad. 
Choisir son compatible. Drives et 
disques durs. Les langages. Tous les 
écrans. 


HORS SERIE N°2 

Spécial listings. 60 pages de pro¬ 
grammes fabuleux pour votre 
Amstrad CPC. 


HORS SERIE N°3 

Spécial listings. 60 pages de pro¬ 
grammes, jeux et utilitaires pour 
CPC, ST, AMIGA et PC 


BON DECOMMANDE 

Pour commander les anciens numéros de M1CRO-MAG, remplissez très lisi¬ 
blement le bon ci-dessous (ou une copie) et adressez-le avec votre régle¬ 
ment à : 

LASER PRESSE - Service "anciens numéros" • 17, rue de la Prévoyance, 
94300 VINCENNES. 

Nom :.Prénom :. 

Adresse :.. 

Code postal :.Ville :.. 

Cochez les numéros que vous désirez recevoir : 


□ 1, G 2, □ 3, G 4, □ 5, □ 6, □ 7, □ 8, □ 9, □ 10*, □ 11, □ 12 
Hors-série n°1 c, n°2 ci, n°3 □ 

Je possède un ordinateur, marque : , type : 

Je commande anciens numéros au prix unitaire de 22 F, 
soit X 22 F * F + 7 F de frais de port. 

Soit un total de F, 

que je règle par : □ mandat, □ chèque bancaire, G chèque postal, à l’ordre 
de LASER PRESSE. 












TRON 90 




y ous jouez contre l’ordina¬ 
teur dans une aire de jeu 
quadrillée de 58 x 48 
cases. Vous ôtes bleu et votre 
adversaire est rouge. Inutile de 
préciser que la partie s’arrête 
lorsque l’un des belligérants 
touche une des traces, un mur, 
un obstacle, etc. Le passage 
des tableaux est assuré par 
l’obtention d’un score suffi¬ 
sant. Trois niveaux constitués 
chacun de cinq tableaux sont 
offerts à votre habileté (un 
conseil, essayez de bloquer 
l’ennemi dans ses propres 
traces). Les commandes sont 
traditionnelles (joystick ou 
touches directionnelles redéfi- 
nissablcs) et la pause s’obtient 
par «ESC». Une fois le meilleur 
score atteint, le programme 
principal est rcsauvé sur dis¬ 
quette (sauf sur 464 K 7) ainsi 
que les touches redéfinies. 


Remis au goût du jour, un des grands 
classiques qui firent la joie de votre 

enfance. 



Sauvez sous un nom de votre 
choix, le court listing Basic de 
chargement. Entrez ensuite par 
Amsaisie V.2 en vous reportant 
à son mode d'emploi, les deux 
listings de codes hexadéci¬ 
maux. Remplacez à l'occasion 
le MEMORY &2000 de notre 
utilitaire maison (ligne 20) par 
MEMORY &1FFF. 

La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor- 


Nom Adr. déb. Long 

TRON90 &2000 &8CE 
TRON90.SPR &5000 &208C 


celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 


Dominique Liard 


1 » ********************* 

1657] 

2000:3E 

01 

CD 

0E 

2 * * TRON 90 * 

[734] 

2008 : CD 

38 

BC 

18 

3 ’ * par * 

[218] 

2010:06 

06 

00 

21 

4 * * Dominique LIARD * 

[1224] 

2018:7E 

4F 

78 

41 

5 '***»*«*,***,****»**,« 

[657] 

2020:C1 

23 

04 

78 

6 MEMORY &1FFF:LOAD"TRON 

[3841] 

2028:3E 

0C 

06 

14 

90.BIN".42000:LOAD"TRON9 


2030:22 

C0 

CD 

98 

0.SPR".&5000 


2038:11 

21 

E6 

D6 

7 CALL &2000 

[308] 

2040:98 

21 

3E 

12 

8 IF PEEK(6)=128 THEN 7 

[1572] 

2048 : Cl 

11 

F0 

50 

9 PEN 1 :LOCATE 1.5:PRINT 

[9851] 

2050:16 

06 

09 

21 

"VEUILLEZ INSERER LA DIS 


2058:51 

CD 

98 

21 

QUETTE COMPORTANTTRON-90 


2060:21 

28 

C4 

11 

(celle-ci deprocegee, b 


2068:21 

3E 

40 

CD 

ien sur). M :LOCATE 16,8:P 


2070:3E 

41 

CD 

1E 

RINT" < ESPACE >** :CALL &B 


2078:20 

CD 

1E 

BB 

B03:WHILE INKEY(47):WEND 


2080 :B2 

21 

11 

39 

10 PEN 2 :LOCATE 5,10:PRI 

[8771] 

2088:09 

CD 

98 

21 

NT"EFFACER ANCIEN FICHIE 


2090:35 

00 

09 

11 

R PRINCIPAL. " :A$="TRON90 


2098:06 

09 

CD 

98 

.BIN":IERA.@A$:LOCATE 6. 


20A0:11 

00 

A0 

3E 

11 : PRINT"SAUVEGARDE DU F 


20A8:98 

21 

2A 

B4 

ICHIER PRINCIPAL”:LOCATE 


20B0:09 

11 

00 

A0 

11.12:PRINT"ET DONC DU 


20B8:CD 

98 

21 

18 

HI-SCORE." 


20C0 : 3E 

D8 

77 

23 

11 SAVE"TRON90.BIN”.B.&2 

[6420] 

20C8 : B4 

21 

3E 

18 

000.48CE:LOCATE 11.14:PR 


20D0 : 77 

18 

17 

21 

INT"FINI!< ESPACE >":WHI 


20D8 : 77 

23 

3E 

C4 

LE INKEY(47 ): WEND 


20E0:3E 

D8 

77 

23 

12 GOTO 7 

[286] 

20E8 : 77 

21 

11 

12 



20F0 : 32 

93 

21 

11 



20F8 : 21 

32 

94 

21 



2100 : 2C 

21 

32 

95 


BC 

06 

00 

48:0F 

2108 : CD 

O 

CM 

21 

32 

96 

21 

11 

20: A4 

04 

T Tk 

%/ ts 

02 

0D : 8 3 

2110:59 

CD 

2C 

21 

32 

97 

21 

21:9F 

2D 

20 

C5 

E5 : 52 

2118:68 

C5 

11 

00 

A0 

3E 

0F 

06 : 8B 

CD 

32 

BC 

El : 19 

2120:09 

CD 

98 

21 

3E 

20 

CD 

5A : 91 

FE 

04 

20 

EE : 91 

2128 :BB 

C3 

7F 

20 

21 

68 

C5 

3E:EF 

4 - 

00 

50 

21 :8D 

2130:0F 

06 

09 

CD 

98 

21 

21 

12 :F0 

21 

3E 

37 

06:83 

2138:15 

CD 

75 

BB 

01 

00 

40 

0B : 70 

♦ 

SD 

53 

CD : E5 

2140:78 

B1 

FE 

00 

20 

F9 

CD 

03: 5E 

06 

09 

21 

A8 : B7 

214 8 :BB 

3À 

67 

21 

CD 

1E 

BB 

20:23 

CD 

98 

21 

3E:C3 

2150:17 

3A 

67 

21 

3C 

FE 

50 

28:45 

E8 

C2 

11 

92 : 4C 

2158:05 

32 

67 

21 

18 

EB 

AF 

32 :EE 

3E 

19 

06 

09: ED 

2160:67 

21 

CD 

8A 

BB 

18 

E2 

2F: 96 

58 

52 

CD 

98:80 

2168 : CD 

03 

BB 

CD 

19 

BD 

3E 

07:96 

:e 

BB 

20 

4D : 59 

2170 : CD 

5A 

BB 

3A 

67 

21 

C9 

3E : 63 

BB 

20 

SC 

3E:0A 

2178:48 

32 

93 

21 

3E 

49 

32 

94: 6C 

C2 

B6 

21 

2A : DD 

2180:21 

3E 

4A 

32 

95 

21 

3E 

4B:9D 

53 

3E 

02 

06: FC 

2188:32 

96 

21 

3E 

4C 

32 

97 

21:33 

2A 

B2 

21 

01:84 

2190 :C3 

7F 

20 

43 

45 

22 

IB 

2F : 38 

4B 

53 

3E 

02:6F 

2198 :F5 

C5 

E5 

47 

IA 

77 

13 

23 :EC 

21 

2A 

B4 

21 :2C 

21A0 :10 

FA 

El 

01 

00 

08 

09 

30: 5B 

02 

06 

09 

CD : 7E 

21A8 :04 

01 

50 

C0 

09 

Cl 

Fl 

10:89 

21 

01 

35 

00 : 0E 

21B0:E7 

C9 

D8 

C2 

18 

C4 

3A 

93:18 

3E 

02 

06 

09:2F 

21B8:21 

32 

36 

24 

3A 

94 

21 

32 : Al 

AC 

21 

B2 

21 : A0 

21C0 : 3D 

24 

3A 

95 

21 

32 

44 

24:35 

3E 

C2 

77 

21 : CA 

21C8 : 3 A 

96 

21 

32 

4B 

24 

3A 

97:17 

77 

23 

3E 

C4 : EF 

21D0:21 

32 

DI 

22 

18 

27 

21 

01 : C2 

B2 

21 

3E 

18:12 

21D8:E0 

06 

30 

C5 

11 

74 

63 

06 : 7B 

77 

21 

B4 

21 :8C 

21E0:04 

C5 

E5 

IA 

06 

3A 

77 

23:79 

3E 

C2 

77 

C3:FÀ 

21E8 :10 

FC 

El 

01 

00 

08 

09 

30 :À7 

58 

CD 

2C 

21 :FE 

21F0:04 

01 

50 

C0 

09 

Cl 

13 

10 : BF 

99 

58 

CD 

2C : 17 

21F8 : E8 

Cl 

10 

DF 

C9 

CD 

6C 

BB:B6 

11 

8B 

57 

CD : 3D 

2200: 3E 

01 

CD 

DE 

BB 

11 

00 

00: 4E 

21 

11 

04 

57:58 

2208:21 

00 

00 

CD 

EA 

BB 

11 

DE: DA 













































































2210:01 21 00 00 CD F6 BB 11:DF 
2218:DE 01 21 8F 01 CD F6 BB:1E 

2220:11 00 00 21 8F 01 CD F6:F3 

2228:BB 11 00-00 21 00 00 CD:34 
2230:F6 BB 3E 03 CD DE BB 11:5E 

2238:04 00 21 04 00 CD EA BB:DD 

2240:11 DA 01 21 04 00 CD F6:0D 

2248 :BB 11 DA 01 21 8B 01 CD:2F 

2250:F6 BB 11 04 00 21 8B 01:BC 

2258:CD F6 BB 11 04 00 21 04:C3 

2260:00 CD F6 BB 21 40 C0 11:D7 

2268:00 50 3E 0C 06 14 CD 98:05 

2270:21 21 7C El 11 8F 60 3E:2C 

2278:0D 06 10 CD 98 21 21 BC:9C 

2280:E2 11 6C 61 3E 14 06 10:C6 

2288:CD 98 21 CD E7 22 CD 16:D8 

2290:23 21 74 C3 22 F2 22 11:4B 

2298:78 63 3E 01 06 04 CD 98:47 

22A0:21 21 A7 C3 22 F4 22 11:FE 

22A8:7C 63 3E 01 06 04 CD 98:5B 

22B0:21 21 6C C2 11 1D 24 CD:E8 

22B8:00 24 21 AC E3 11 29 24:49 

22C0:CD 00 24 21 2C C3 11 A7:BC 

22C8 :59 3E 24 06 10 CD F8 22:39 

22D0:3E 2F CD 1E BB 28 F9 21:DB 

22D8:2C C3 11 A7 59 3E 24 06:D8 

22E0:10 CD F8 22 C3 35 24 06:55 

22E8:F5 ED 78 1F 30 FB CD D6:DA 

22F0:21 C9 CD E3 9C C3 01 01:65 

22F8:F5 C5 ES 47 7E F5 IA 77:06 

2300:F1 12 23 13 10 F6 El 01:30 

2308:00 08 09 30 04 01 50 C0:60 

2310:09 Cl Fl 10 E3 C9 3A F6:3C 

2318:22 FE 01 C8 FE 02 CA 2C:64 

2320:23 FE 03 28 22 FE 04 28:05 

2328:60 C3 CB 23 21 DD C2 11:C7 

2330:40 64 3E 16 06 20 CD 98:A6 

2338:21 21 56 C2 11 54 6C 3E:F9 

2340:07 06 IC CD 98 21 C9 21:43 

2348:18 E0 11 C0 69 3E 0A 06:6D 

2350:28 CD 98 21 21 A8 El 11:C5 

2358:C0 69 3E 0A 06 28 CD 98:58 

2360:21 21 38 E3 11 C0 69 3E:BE 

2368:0A 06 28 CD 98 21 21 C8:32 

2370:E4 11 C0 69 3E 0A 06 28:59 

2378:CD 98 21 21 08 E6 11 C0:82 

2380:69 3E 0A 06 28 CD 98 21:84 

2388:C9 21 A9 El 11 18 6D 3E:05 

2390:09 06 24 CD 98 21 21 54:AD 

2398:C6 11 40 64 3E 16 06 20:D7 

23A0:CD 98 21 21 3C E3 11 50:1C 

23A8:6B 3E 04 06 10 CD 98 21:24 

23B0:21 F4 E2 11 40 64 3E 16:C0 

23B8:06 20 CD 98 21 21 2B E4:A0 

23C0:11 5C 6E 3E 05 06 IC CD:57 

23C8:98 21 C9 21 65 E0 11 90:D4 

23D0:6B 3E 07 06 IC CD 98 21:91 

23D8:21 A9 Cl 11 00 67 3E 08:51 

23E0:06 58 CD 98 21 21 22 C3:F1 

23E8:11 E8 6E 3E 07 06 14 CD:69 

23F0:98 21 21 53 C3 11 E8 6E:99 

23F8:3E 07 06 14 CD 98 21 C9:89 

2400:06 06 C5 EB 4E 23 46 23:8B 

2408:EB DS ES 59 50 3E 02 06:16 

2410:09 CD 98 21 El DI 23 23:7B 

2418:23 Cl 10 E6 C9 C0 62 C0:C4 

2420:62 C0 62 C0 62 C0 62 C0:64 

2428:62 D2 62 D2 62 D2 62 E4:64 

2430:62 F6 62 08 63 3E 43CD:88 

2438:1E BB 20 53 3E 45 CD 1E:FB 

2440:BB 20 53 3E 22 CD 1E BB:72 

2448:20 53 3E IB CD 1E BB 20:2A 

2450:53 3E 4% CD 1E BB 28 54:ED 

2458:21 38 E$ 11 0B 5C 3E 0D:73 

2460:06 10 C5> F8 22 01 00 30:21 

2468:0B 78 B1 FE 00 20 F9 3E:11 

2470:42 CD 1E BB 28 F9 21 38:FB 

2478:E3 11 0B 5C 3E 0D 06 10:60 

2480 : CD F8 22 01 00 30 0B 78:F8 

2488:B1 FE 00,20 F9 18 1D 3E:01 
2490:01 32 ABi, 24 18 16 3E 03:70 

2498:32 AB 24fl8 0F 3E 04 32:7B 

24A0: AB 24 lfc08 3E 02 32 AB:17 

24A8:24 18 0t. 02 2A F2 22 3A:67 


24B0: AB 24 FE 02 20 03 23 18:30 
24B8:2D FE 04 20 03 2B 18 26:7A 
24C0:FE 03 20 0F 01 00 20 09:B1 
24C8:7C FE C0 30 04 01 50 C0:AE 
24D0:09 18 13 01 00 20 AF ED:5B 
24D8:42 7C FE C0 30 06 AF 01:15 
24E0:50 C0 ED 42 18 00 22 F2:99 
24E8-.22 7E FE 08 C2 FE 27 CD:7B 
24F0:3C 26 C5 2A F4 22 22 B7:C9 
24F8:25 CD 3C 26 DI AF 32 B6:64 
2500:25 CD BD 25 7E FE 08 C2:61 
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F0 

F0 

F0 

F0:A0 

6B38:08 

08 

78 

08 

78 

08 

08 

08:43 

6DD8:08 

08 

08 

08 

08 

7F 

7F 

08:70 

7078 :F0 

F0 

F0 

F0 

F0 

F0 

F0 

F0:A8 

6B40:78 

08 

08 

08 

78 

08 

0F 

0F:D4 

6DE0:08 

08 

08 

08 

08 

08 

7F 

0F:E6 

7080 :F0 

F0 

70 

F0 

F0 

F0 

F0 

F0 :30 

6B48: 0F 

0F 

0F 0F 

0F 

0F 

0F 

0F:CF 

6DE8: 0F 

0F 

0F 

0F 

0F 

0F 

0F 

0F: 71 

7088:F0 

F0 

F0 

E0 

00 

00 

00 

00:18 

6B50:08 

7F 

7F "08 

08 

7F 

7F 

08:39 

6DF0:08 

7F 

08 

7F* 7F 

7F 

08 

7F : IC 









6B58:08 

7F 

7F $8 

0F 

0F 

0F 

0F:EC 

6DF8:08 

08 

7F 

08 

7F 

7F 

7F 

06:48 









6B60: 7F 

7F 

7F “7F 

7F 

7F 

7F 

7F:A7 

6E00: 7F 

08 

08 

7F 

08 

7F 

7F 

7F: A4 









6B68: 7F 

7F 

7F 7F 

0F 

0F 

0F 

0F :4F 

6E08:08 

7F 

08 

0F 

0F 

0F 

0F 

0F: 56 









6B70: 7F 

7F 

7F 

7F 

7F 

7F 

7F 

7F:B7 

6E10: 0F 

0F 

0F 

0F 

08 

7F 

08 

08 : AE 





— 
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PROGRAMMATION 



JOHNNY II, le retour 


C e jeu a pour but de vous 
faire engloutir tous les 
fruits qui mûrissent dans 
une cinquantaine de tableaux. 
Monstres, pièges, têtes-de- 
mort, cases fléchées ainsi 
qu’une énergie décroissante 
(n’oubliez pas la tonicité des 
fruits) rendent la vie (6 vies) de 
cette boule palpitante de 
Johnny particulièrement 
pénible. Si le désespoir vous 
gagne, quittez ce bas monde 
en pressant «ESC». En l’absen¬ 
ce de joystick, les touches 
(flèches, par défaut) sont redé¬ 
finissables. 

Sauvegarde 

Sauvez sous un nom de votre 
choix, le court listing Basic de 
chargement. Entrez ensuite par 
Amsaisie V.2 en vous reportant 
à son mode d’emploi, les deux 


Saviez-vous qu'au pays des boules, un 
simple repas frugal pouvait être lourd de 

conséquences?.. 



«ES . .. 0 0 0 0 0 0 

SaESEIE * . . mnaci TABLEAU ••• n ’ 


listings de codes hexadéci¬ 
maux. L’adresse d'implanta¬ 
tion plutôt basse du premier 
listing (RETOUR1) nécessite la 
modification préalable de 
notre utilitaire maison. 

• Ligne 10 : OPENOUT”d” : 
MEMORY &14FF : CLO- 
SEOUT 

• Ligne 20 : supprimez le 
MEMORY &2000 


Nom 

Adr. déb. Long 

RETOUR1 

&1500 

&B57 

RETOU R2 

&5000 

&2FD0 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 

Dominique Liard 


i ********************** 

[657] 

1598:01 

00 

08 

09 

30 

04 

01 

50:79 

1698:51 

55 

45 

2E 

20 

20 

20 

20:70 

2 •* 

JOHNNY II 


* 

[977] 

15A0:C0 

09 

Cl 

10 

E8 

El 

DI 

23 : A7 

16A0:20 

20 

44 

45 

43 

49 

44 

45 :FF 

3 ** 

LE RETOUR 


* 

[373] 

15A8:23 

18 

A4 

00 

C0 

4A 

20 

4F:D0 

16A8:4D 

45 

4E 

54 

00 

10 

C4 

4F : 03 

4 ’* 


par 



* 

[218] 

15B0:20 

48 

20 

4E 

20 

4E 

20 

59:29 

16B0:4E 

20 

4C 

55 

49 

20 

45 

4E:0C 

5 ’* Dominique LIARD 

* 

[1224] 

15B8:20 

20 

20 

20 

20 

32 

20 

20 : B9 

16B8 :20 

56 

45 

55 

54 

20 

42 

45:17 

6 ****** 

«**< 

t**4 


»**« 

* *4 

i* 

[657] 

15C0:20 

20 

20 

20 

4C 

20 

45 

20:34 

16C0:41 

55 

43 

4F 

5 5 

50 

2E 

20:91 

7 MEMORY 614FF: LOAD" 

1RET 

[4675] 

15C8:20 

20 

52 

20 

45 

20 

54 

20:18 

16C8:41 

49 

44 

45 

5A 

20 

4C 

45 : 4F 

OUR1".&1500:LOAD' 

• 1 RETOUR 


15D0: 4F 

20 

55 

20 

52 

00 

F0 

C0 : 1D 

16D0:20 

45 

4E 

43 

4F 

5 2 

45 

00 :E0 

2”.&5000:CALL 

&1500: 

*255 


15D8:20 

20 

20 

41 

50 

52 

45 

53 : A8 

16D8:B0 

C4 

55 

4E 

45 

20 

46 

4F:D8 

VIES :POKE 

&19D2.255 



15E0:20 

53 

41 

20 

50 

45 

52 

49 : B2 

16E0:49 

53 

20 

41 

20 

53 

20 

45 :E3 









15E8:45 

55 

53 

45 

20 

4D 

49 

53 : FE 

16E8:4E 

20 

53 

4F 

52 

54 

49 

52 :E2 









15F0: 53 

49 

4F 

4E 

20 

20 

20 

4C : AF 

16F0:2E 

20 

20 

20 

20 

42 

4F 

4E : 19 









15F8:45 

20 

50 

41 

55 

56 

52 

45:99 

16F8:4E 

45 

20 

43 

48 

41 

4E 

43 : 7A 

1500:3E 

00 

CD 

0E 

BC 

CD 

00 

18:2C 

1600:00 

90 

Cl 

4A 

4F 

48 

4E 

4E:6E 

1700:45 

2E 

00 

A4 

C6 

41 

50 

50: 5C 

1508:06 

09 

11 

AB 

15 

C5 

EB 

5E : 78 

1608:59 

20 

53 

45 

20 

52 

45 

54 : D3 

1708:55 

59 

45 

5A 

20 

53 

55 

52 :D2 

1510:23 

56 

23 

EB 

CD 

4F 

15 

Cl :7F 

1610:52 

4F 

55 

56 

45 

20 

44 

45 : 8A 

1710:20 

20 

45 

53 

50 

41 

43 

45 :B5 

1518:10 

F3 

CD 

DC 

17 

3E 

2F 

CD : 92 

1618:20 

4E 

4F 

55 

56 

45 

41 

55 :E6 

1718:00 

00 

C0 

4A 

20 

4F 

20 

48:31 

1520:1E 

BB 

28 

F9 

CD 

00 

18 

CD : 36 

1620:20 

43 

4F 

4E 

46 

52 

4F 

4E : E4 

1720:20 

4E 

20 

4E 

20 

59 

20 

20:21 

1528:6C 

BB 

06 

07 

11 

19 

17 

C5 :01 

1628:54 

45 

20 

00 

30 

C2 

41 

20 : BF 

1728:20 

20 

20 

32 

20 

20 

20 

20:07 

1530 :EB 

5E 

23 

56 

23 

EB 

CD 

4F: Fl 

1630:55 

4E 

20 

41 

55 

54 

52 

45 : A2 

1730:20 

20 

4C 

20 

45 

20 

20 

20:04 

1538:15 

Cl 

10 

F3 

21 

10 

C6 

11 :D7 

1638:20 

50 

52 

4F 

42 

4C 

45 

4D:9D 

1738:52 

20 

45 

20 

54 

20 

4F 

20: BD 

1540:00 

50 

3E 

0A 

06 

0B 

CD 

1F : CA 

1640:45 

2E 

20 

20 

20 

49 

4C 

20:41 

1740:55 

20 

52 

00 

0A 

Cl 

30 

2E:5A 

1548:18 

CD 

DC 

17 

C3 

5B 

18 

IA : 68 

1648:53 

45 

20 

52 

45 

54 

52 

4F:EA 

1748:2E 

2E 

20 

20 

20 

4A 

4F 

55 :F6 

1550:13 

FE 

20 

28 

19 

FE 

2E 

28:67 

1650:55 

56 

45 

20 

45 

4E 

00 

D0 :63 

1750:45 

52 

00 

AA 

Cl 

31 

2E 

2E : 95 

1558:21 

FE 

30 

D8 

FE 

5B 

D0 

FE : 32 

1658 :C2 

45 

46 

46 

45 

54 

20 

45 : FD 

1758:2E 

20 

20 

43 

4C 

41 

56 

49: ED 

1560:3A 

38 

07 

FE 

41 

D8 

DE 

40:93 

1660:4E 

46 

45 

52 

4D 

45 

20 

44:86 

1760:45 

52 

00 

4A 

C2 

32 

2E 

2E : 30 

1568:18 

12 

DE 

14 

18 

0E 

D5 

E5:6A 

1668:41 

4E 

53 

20 

55 

4E 

20 

4E : Al 

1768:2E 

20 

4A 

4F 

59 

53 

54 

49 : 4A 

1570:21 

00 

49 

11 

10 

00 

06 

01:47 

1670:4F 

55 

56 

45 

41 

55 

20 

4C: 18 

1770:43 

4B 

00 

16 

C4 

50 

52 

4F: 22 

1578:18 

0B 

3E 

25 

D5 

E5 

21 

5E : 67 

1678:41 

42 

59 

52 

49 

4E 

54 

48:73 

1778:47 

52 

41 

4D 

4D 

45 

20 

20:70 

1580:50 

11 

10 

00 

47 

19 

10 

FD: 88 

1680:45 

00 

70 

C3 

45 

4E 

43 

4F:B1 

1780:20 

44 

45 

20 

20 

20 

44 

4F: 42 

1588 :EB 

El 

E5 

06 

08 

C5 

E5 

06: 4A 

1688:52 

45 

20 

20 

50 

4C 

55 

53: 9D 

1788: 4D 

49 

4E 

49 

51 

55 

45 

20:02 

1590:02 

IA 

77 

13 

23 

10 

FA 

El: 79 

1690:20 

20 

43 

4F 

4D 

50 

4C 

49 :C8 

1790:20 

20 

4C 

49 

41 

52 

44 

00 : IC 









1798:B6 

C4 

47 

52 

41 

50 

48 

49:6F 

17A0:53 

4D 

45 

53 

20 

20 

44 

45:23 

17À8:20 

20 

20 

44 

4F 

4D 

49 

4E : 57 

17B0:49 

51 

55 

45 

20 

20 

20 

4C:65 

17B8:49 

41 

52 

44 

00 

6A 

C5 

46 : AF 

17C0:45 

56 

52 

49 

45 

52 

20 

31:8F 

17C8:39 

39 

30 

00 

00 

18 

0F 

06:43 

17D0:14 

02 

01 

03 

0A 

09 

12 

16 : A4 

17D8: IA 

04 

04 

04 

06 

00 

48 

CD: AB 

17E0:38 

BC 

AF 

21 

CC 

17 

F5 

E5 :99 

17E8:46 

48 

CD 

32 

BC 

21 

00 

40:76 

17F0.-2B 

7C 

B5 

FE 

00 

20 

F9 

El :D8 

17F8:F1 

23 

3C 

FE 

10 

20 

E7 

C9:9B 

1800:06 

00 

48 

CD 

38 

BC 

AF 

F5 : IB 

1808:06 

00 

48 

CD 

32 

BC 

21 

00: 7B 

1810:40 

2B 

7C 

B5 

FE 

00 

20 

F9 : A4 

1818 : Fl 

3C 

FE 

10 

20 

E9 

C9 

F5 :10 

1820:C5 

E5 

47 

IA 

77 

23 

13 

10: 2E 

1828:FA 

El 

01 

00 

08 

09 

30 

04 :CD 

1830:01 

50 

C0 

09 

Cl 

Fl 

10 

E7 :60 

1838 :C9 

AA 

Cl 

00 

02 

08 

01 

09:39 

1840:3E 

40 

CD 

1E 

BB 

20 

11 

3E:C3 

1848:41 

CD 

1E 

BB 

20 

15 

3E 

20:51 

1850 : CD 

1E 

BB 

C2 

55 

19 

18 

E8:D1 

1858:CD 

BB 

18 

21 

AA 

Cl 

CD 

80 :F2 

1860:18 

18 

DD 

3E 

48 

32 

3B 

18:40 

1868:3C 

32 

3C 

18 

3C 

32 

3D 

18 :F7 

1870:3C 

32 

3E 

18 

3C 

32 

3F 

18:13 

1878:21 

4A 

C2 

CD 

80 

18 

18 

C0 :77 

1880:06 

F5 

ED 

48 

1F 

30 

FB 

22:17 

1888:39 

18 

E5 

2A 

53 

17 

11 

55 : A8 

1890:17 

CD 

4F 

15 

2A 

63 

17 

11 :E7 

1898:65 

17 

CD 

4F 

15 

El 

06 

08: FF 

18A0:C5 

E5 

06 

IA 

7E 

0E 

C0 

A9 :13 

18A8:77 

23 

10 

F8 

El 

01 

00 

08:38 

18B0:09 

01 

50 

C0 

Cl 

10 

E9 

C9:8F 

18B8:00 

00 

00 

21 

3B 

18 

22 

B9:C1 

18C0 :18 

06 

04 

11 

14 

19 

C5 

21 :B1 

18C8:EA 

C2 

CD 

4F 

15 

21 

0A 

0D:CE 

18D0:CD 

75 

BB 

01 

00 

60 

0B 

78:21 



18D8:B1 

FE 

00 

20 

F9 

3A 

B8 

18: 1E 

18E0: CD 

1E 

BB 

20 

16 

3A 

B8 

18:44 

18E8:3C 

FE 

50 

28 

05 

32 

B8 

18 :D5 

18F0:18 

EB 

AF 

32 

B8 

18 

CD 

8A:DE 

18F8.-BB 

18 

E2 

3E 

07 

CD 

5A 

BB :D8 

1900:2A 

B9 

18 

3A 

B8 

18 

77 

23:66 

1908:22 

B9 

18 

Cl 

10 

B8 

21 

EA:D8 

1910:C2 

C3 

4F 

15 

48 

41 

55 

54:93 

1918:20 

2E 

2E 

2E 

2E 

2E 

20 

00 :C9 

1920:42 

41 

53 

20 

2E 

2E 

2E 

2E : 22 

1928:2E 

2E 

20 

00 

47 

41 

55 

43:7F 

1930:48 

45 

20 

2E 

2E 

2E 

20 

00: 0D 

1938:44 

52 

4F 

49 

54 

45 

20 

2E:DC 

1940: 2E 

2E 

20 

00 

20 

20 

20 

20:83 

1948:20 

20 

20 

20 

20 

20 

20 

20 :E1 

1950:20 

20 

20 

20 

00 

C3 

CB 

1A:98 

1958:21 

00 

C0 

06 

0A 

C5 

E5 

06: 2D 

1960:14 

C5 

D5 

E5 

IA 

47 

21 

87:75 

1968:19 

5E 

23 

56 

23 

10 

FA 

El: 04 

1970 :E5 

CD 

B7 

19 

El 

23 

23 

23 :D5 


1978:23 

DI 

13 

Cl 

10 

E3 

El 

01:64 

1980:A0 

00 

09 

Cl 

10 

D7 

C9 

BE;21 

1988:52 

FE 

52 

3E 

53 

7E 

53 

BE : A5 

1990:53 

FE 

53 

3E 

54 

7E 

54 

BE :BD 

1998:54 

FE 

54 

3E 

55 

7E 

55 

BE:D5 

19A0:55 

FE 

55 

3E 

56 

7E 

56 

BE:ED 

19A8:56 

FE 

56 

3E 

57 

7E 

57 

BE : 05 

19B0:57 

FE 

57 

3E 

58 

7E 

58 

06: 5D 

19B8:10 

C5 

E5 

06 

04 

IA 

77 

23: 3B 

19C0:13 

10 

FA 

El 

01 

00 

08 

09:03 

19C8:30 

04 

01 

50 

C0 

09 

Cl 

10:19 

19D0:E8 

C9 

06 

01 

3E 

7E 

BE 

7E:C5 

19D8: 3A 

D3 

19 

47 

21 

D4 

19 

7E: 74 

19E0:23 

10 

FC 

16 

57 

5F 

3A 

D3 : A3 

19E8:19 

3C 

FE 

05 

28 

05 

32 

D3:7C 

19F0:19 

18 

05 

3E 

01 

32 

D3 

19:17 

19F8:21 

A4 

C6 

06 

01 

C5 

D5 

E5 :82 

1A00:CD 

B7 

19 

El 

01 

0A 

00 

09 : AD 

1A08:D1 

Cl 

3A 

D2 

19 

B8 

20 

03:30 

1A10:11 

BE 

52 

04 

78 

FE 

07 

38 :FA 

1Al 8 :E4 

C9 

06 

C8 

IA 

13 

FE 

0B : 18 

1A20:38 

1F 

FE 

13 

38 

3F 

FE 

13:12 

1A28:28 

47 

21 

84 

IA 

D6 

15 

C5 : AC 

1A30:47 

2B 

2B 

23 

23 

10 

FC 

Cl :EF 

1A38:3A 

7F 

IA 

77 

23 

3A 

80 

1À:0F 

1A40:77 

3A 

7F 

IA 

3C 

FE 

15 

28: 1D 

1A48:05 

32 

7F 

IA 

18 

0C 

3E 

01 :2A 

1À50:32 

7F 

IA 

3A 

80 

IA 

3C 

32:20 

1A58:80 

IA 

10 

C0 

3E 

01 

32 

7F:E8 

1A60: IA 

32 

80 

IA 

C9 

D6 

0A 

67:4F 

1A68:3A 

81 

IA 

84 

32 

81 

IA 

18:92 

1A70:D0 

3A 

7F 

IA 

32 

82 

IA 

3A:3F 

1A78:80 

IA 

32 

83 

IA 

18 

C2 

01:50 

1A80: 01 

00 

00 

00 

00 

00 

00 

00: 9B 

1A88:00 

00 

11 

9E 

IA 

21 

97 

C7:EE 

1A90:CD 

4F 

15 

C9 

21 

A5 

Cl 

11 :F4 

1A98:A5 

IA 

CD 

4F 

15 

C9 

30 

30: 1D 

1AA0 :31 

30 

30 

30 

00 

54 

41 

42: 6A 

1AA8:4C 

45 

41 

55 

20 

2E 

2E 

2E : 15 

1AB0:20 

30 

31 

00 

BE 

58 

56 

49:45 




NICE-St LAURENT DU VAR 


MICRO 

15 années d’expérience 
Distributeur agréé 

AMSTRAD 

L'accueil, le conseil et 
la compétence réunis 

Entrée ou sortie CAP 3000 
Galerie supérieure 
GALAXIE 3000 
Av. Léon Béranger 

06700 - St LAURENT DU VAR 

Tél. : 93 07 44 22 



METZ 




Central 

Bureau 



j)M-U 

•C'a! 

ç ce 
ÏO 


MICRO 

HIFI 


VIDEO 

U SAV. 

4, rue Florimond Leroux 
80000 AMIENS 

Tél. : 22.91.64.80 




























1AB8:45 53 
1AC0:4E 45 
1AC8:2E 2E 
1AD0:C6 11 
1AD8:80 C7 
1AE0: CD D8 
1AE8 : CD 58 
1AF0:8A IA 
1AF8:3A 3B 
1B00:18 32 
1B08:2D IB 
1B10 :2A B4 
1B18:00 ED 
1B20:82 IA 
1B28: AF 32 
1B30:BB 20 
1B38:20 54 
1B40:20 3E 
1B48: IB 3A 
1B50: IA CD 
1B58: IB 3E 
1B60: IB 3A 
1B68: IA CD 
1B70:3E 03 
1B78:3A 83 
1B80: CD A4 
1B88:04 32 
1B90: IA 47 
1B98: IB FE 
1BA0:C7 IB 
1BA8: 4F 16 
1BB0:78 FE 
1BB8:7E 7E 
1BC0:28 03 
1BC8:FE 05 
1BD0: IB C9 
1BD8:32 C7 
1BE0:3E 04 
1BE8:32 C7 
1BF0:3A 82 
1BF8:05 38 
1C00: CD 88 
1C08:82 IA 
1C10: IC 22 
ICI8 : 3A 82 
1C20: IC 22 
1C28:CD D8 
1C30:30 FB 
1C38: IC CD 
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76B8:01 01 03 03 03 03 03 01:84 

76C0:01 01 01 18 03 01 01 03:D0 

76C8:03 01 01 03 01 01 01 01:6C 

76D0:01 03 03 0F 01 01 01 01:AC 

76D8:07 01 01 03 03 01 01 07:BA 

76E0:01 01 01 01 0F 03 03 03:EA 

76E8:03 03 03 03 03 01 01 03:B0 

76F0:03 01 01 03 03 03 03 03:C8 

76F8:03 03 03 01 01 01 01 01:9E 

7700:01 17 01 03 03 01 01 01:D9 

7708:16 01 01 01 01 03 03 0F:42 

7710:01 01 01 01 01 01 01•07:DB 

7718:07 01 01 01 01 01 01 01;B9 

7720:0F 03 03 03 03 03 03 03:0F 

7728:03 03 03 03 03 03 03 03:0B 

7730:03 03 03 03 03 03 08 08:5E 

7738:08 08 08 08 08 08 08 08:CF 

7740:08 08 08 08 08 08 08 08:D7 

7748:08 06 05 01 01 01 01 01:00 

7750:01 01 01 01 01 16 01 01:69 

7758:01 01 01 01 01 06 05 01:2D 

7760:08 08 08 08 08 08 08 08:F7 

7768:08 08 08 08 08 08 08 06:EF 

7770:01 06 05 01 05 0E 01 01:83 • 

7778:01 01 01 01 01 01 01 01:13 

7780:01 01 01 06 01 06 05 01:69 

7788:0A 0F 08 08 08 08 08 08:2F 

7790:08 08 08 06 01 01 18 0A:52 

7798:01 06 05 13 05 10 05 07:4B 

77A0:07 07 07 07 07 07 07 07:13 

77A8:01 01 01 07 01 06 05 01:95 

77B0:05 11 01 01 01 01 01 01:6F 

77B8:01 01 01 01 01 01 01 06:7B 

77C0:01 06 05 01 05 07 07 07:03 

77C8:07 07 07 07 07 07 07 07:3B 

77D0:07 07 07 07 01 06 05 01:E1 
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77DÔ: 01 01 01 01 01 01 01 01:73 

77E0:01 17 01 01 01 01 01 01.A? 

77E8:01 06 05 07 07 07 07 07;4D 

77F0:07 07 07 07 07 07 07 07:63 

77F8:07 07 07 07 07 07 02 02:20 

7800:01 01 01 01 01 01 01 0j:*C 

7808:01 01 01 01 01 01 01 01:A4 

7810:02 02 02 13 02 02 01 01:06 

7818:01 01 01 01 01 01 01 01-B4 

7820:01 01 02 02 12 02 02 01:25 

7828:01 01 02 02 01 01 01 01:CB 

7830:01 01 01 01 02 02 01 01:D7 

7838:01 02 02 02 01 01 01 0i:DD 

7840:02 02 01 01 01 01 02 02:EE 

7848:01 01 01 01 02 02 01 01:EF 

7850:02 02 01 17 01 01 02 02:56 

7858:02 02 01 01 16 01 02 02:6F 

7860:01 01 01 01 02 02 01 01:07 

7868:01 01 02 02 02 02 01 01:16 

7870:01 01 02 02 01 01 02 02:22 

7878:01 01 01 01 02 02 01 01:3F 

7880:01 01 02 02 01 01 01 01:23 

7888:02 02 02 01 01 01 06 02:55 

7890:01 01 01 15 01 01 01 01:88 

7898:02 05 01 01 01 02 02 12:D2 

78A0:02 02 06 01 03 01 01 01:4F 

78A8:01 01 01 01 01 05 02 02:6B 

78B0:12 02 02 02 01 01 08 08:CF 

78B8:08 08 08 08 08 08 08 08:50 

78C0:08 05 01 01 02 02 02 02:85 

78C8:02 02 02 02 02 02 02 02:88 

78D0:02 02 02 02 02 02 02 02:90 

78D8:02 02 03 01 01 01 01 01:7D 

7 8E0 :01 01 01 13 03 11 01 01:2F. 

78E8:01 01 01 01 01 03 03 01:9E 

78F0:01 01 01 01 01 03 01 01:6C 

78F8:03 01 01 03 03 01 01 01:96 

7900:01 03 03 01 01 01 01 36:4F 

7908:01 01 01 01 03 01 01 18-67 

7910:01 01 01 01 01 03 03 01:07 

7918:01 01 01 01 0i 01 01 01 :B5 

7920:03 01 01 01 01 01 01 01:3F 

7928:01 03 03 04 03 03 03 03:0F 

7930:03 03 03 03 03 03 03 03:15 

7938:03 03 03 03 04 03 03 01:12 

7940:01 01 01 01 01 01 01 01:DD 

7948:01 01 01 01 01 01 01 0!:E6 

7950:01 03 03 01 01 01 01 01:F7 

7958:01 01 01 01 17 01 01 01.63 

7960:01 01 01 01 01 03 03 01:17 

7968:01 01 01 03 01 01 01 01:05 

7970:01 01 01 01 01 01 01 01:0F 

7978:01 03 02 02 02 02 02 02:3A 

7980:02 02 02 02 02 02 02 02:41 

7988:02 02 02 02 02 02 09 09.B2 

7990:09 09 09 09 09 09 09 09:4P 

7998:09 09 09 09 09 09 09 09:55 

79A0 :09 09 09 13 01 01 01 01:1*5 

79A8-.01 01 01 09 01 01 01 01:65 

79B0:01 01 01 01 01 09 09 01:B5 

79B8:01 01 01 01 01 01 01 09:96 

79C0:01 0A 0B 0A 17 0A 0B 0A:E3 

79C8:01 09 09 01 01 01 01 16.36 

79D0:01 01 01 09 01 01 0A 0B:;C 

79D8:0A 0B 0A 01 01 09 09 01:35 

79E0:01 01 01 01 01 01 01 09 : BD 

79E8:01 01 01 01 01 01 01 01:85 

79F0:01 09 09 09 09 09 09 09.A5 

79F8:09 09 15 09 09 09 09 09 . D9 

7A00:09 09 09 09 16 09 09 01:BA 

7A08:01 01 01 01 01 01 01 01:A6 

7A10:01 01 01 01 01 15 01 01:26 

7A18:01 09 09 01 01 01 01 01 :DE 

7A20:01 01 03 03 03 01 23 &0:EE 

7A28:01 09 01 01 01 0< 09 0H•8E 

7A30:01 01 01 01 0; 01 01 0; :CE 

7A38:18 01 01 01 01 09 01 01:1D 

7A40:01 09 09 09 09 09 09 09.F6 

7A48:09 09 09 09 09 09 09 09-06 

7A50:09 09 09 09 09 09 02 02.AS 

7A58:02 02 02 02 02 02 02 03:12 

7A60:01 03 03 03 03 03 03 03:44 

7A68:03 03 02 13 01 03 01 01:57 

7A70:01 01 08 08 08 08 01 0Î:6C 

7A78:01 10 01 01 01 03 02 01:47 


7A80:03 01 03 01 03 01 02 01:37 
7A88:01 03 01 02 01 02 01 02:3C 
7A90:01 03 02 01 01 01 01 01:35 
7A98:10 01 02 01 01 03 01 01:54 
7AA0:01 01 01 01 01 03 02 01:51 
7AA8:03 01 03 01 03 01 02 01:5F 
7AB0:01 03 01 02 01 02 01 02:64 
7AB8:01 03 02 01 01 01 16 10:68 
7AC0:01 01 02 01 18 03 01 10:58 
7AC8:01 17 01 01 01 03 02 01:A5 
7AD0:03 01 03 01 03 01 02 01:87 
7AD8:01 03 01 02 01 02 01 02:8C 
7AE0:01 03 02 01 10 01 01 01:D0 
7AE8.-01 01 02 01 01 03 01 01:95 
7AF0:01 01 01 10 01 03 02 01:DD 
7AF8:03 01 03 01 03 01 07 07:02 
7B00:07 07 01 02 01 02 01 02:C3 
7B08:01 03 02 02 02 02 02 02:CC 
7B10:02 02 02 01 01 03 03 03:DF 
7B18:03 03 03 03 03 03 02 02:F0 
7B20:02 02 02 02 02 02 02 02:E3 
7B28:02 02 02 02 02 02 02 02:EB 
7B30:02 02 02 13 04 04 04 04:6B 
7B38:04 04 04 04 04 04 04 04:43 
7B40:01 01 18 01 01 02 02 04:49 
7B48:02 02 02 02 02 02 02 02:0B 
7 B 5 0:0 2 02 02 02 02 02 04 02:21 
7 B 5 8 :0 2 02 02 04 04 04 04 04:57 
7B60-.04 04 04 04 04 04 04 04: 6B 
7B68:01 01 01 01 01 02 02 04 :2C 
7B70:02 02 02 02 02 02 02 02:33 
7B78:02 02 02 02 02 02 16 02:C7 
7B80:02 02 02 04.04 04 04 04:7F 
7B88:04 04 04 04 04 04 04 04:93 
7B90:01 01 01 01 0F 02 02 04:9A 
7B98:02 02 02 02 02 02 02 02:5B 
7BA0:02 02 02 02 02 02 04 02:71 
7BA8:02 02 02 04 04 04 04 04:A7 
7BB0:04 04 04 04 04 04 04 04:BB 
7BB8:01 01 01 01 01 02 02 04:7C 
7BC0:02 04 04 04 04 04 04 04:C9 
7BC8:04 04 04 04 01 01 17 01:1F 
7BD0: 0F 02 02 02 02 02 02 02:A0 
7BD8:02 02 02 02 02 02 02 02:9B 
7BE0:02 02 02 02 02 02 03 03:B2 
7BE8:03 03 03 03 03 03 03 03:CF 
7BF0:03 03 03 03 03 03 03 03:D7 
7BF8:03 03 03 18 01 11 01 01:5F 

7000:01 01 01 01 01 01 01 01:A0 

7008:01 01 01 01 16 03 03 01:2B 

7C10:01 01 01 01 01 01 01 01:B0 

7018:01 01 01 01 01 01 0E 01:13 

7020:01 03 03 01 01 01 01 01:CA 

7028:01 01 0C 01 01 01 01 01:E9 

7030:01 01 01 01 01 03 03 01:EA 

7038:01 01 01 01 01 01 01 01:D8 

7040:03 01 01 01 01 01 01 01:E0 

7048:01 03 03 01 01 0B 01 01:2E 

7050:01 01 01 01 03 01 01 0F : 60 

7058:01 01 01 01 01 03 03 01:12 

7060:01 01 01 01 01 01 01 01:00 

7068:01 01 01 01 01 01 01 01:08 

7070:01 03 03 01 01 01 01 10:92 

7078:01 01 01 01 01 01 0D 01:60 

7080:01 01 01 01 01 03 03 17:EA 

7088:01 01 01 01 01 01 01 01:28 

7090:01 01 01 01 01 01 12 01 :A7 

7098:13 03 03 03 03 03 03 03:90 

7CA0:03 03 03 03 03 03 03 03:88 

7CA8:03 03 03 03 03 03 02 02:81 

7CB0:02 02 02 02 02 02 02 02:74 

7CB8-.02 02 02 02 02 02 02 02:7C 

7000:02 02 02 13 04 04 03 04:F5 

7CC8:04 04 04 04 04 04 03 04:CD 

7CD0.04 04 04 04 04 02 02 04:02 

7CD8:04 04 03 04 04 04 03 04:DA 

7CE0:04 04 03 04 04 04 03 04:E2 

7CE8:04 02 02 04 04 04 03 01:CB 

7CF0:01 01 03 01 01 01 03 01:A4 

7CF8:01 01 03 04 04 02 02 04:DE 

7D00:04 04 03 01 01 01 03 01:BE 

7D08:01 01 03 01 01 01 03 04:D5 

7D10:04 02 02 04 04 04 03 01:F4 

7D18:16 01 03 01 17 01 03 01:50 

7D20:18 01 03 04 04 02 02 04:1E 


7D28:04 04 03 01 01 01 03 01:E6 

7D30:01 01 03 01 01 01 03 04:FD 

7D38:04 02 02 04 04 04 03 04:34 

7D40:04 04 03 04 04 04 03 04:43 

7D48:04 04 03 04 04 02 02 0B:70 

7D50:04 04 04 04 04 04 03 0B:8E 

7D58:04 04 04 04 04 04 03 0B:96 

7D60:0B 02 02 02 02 02 02 02:2E 

7D68:02 02 02 02 02 02 02 02:2D 

7D70:02 02 02 02 02 02 01 01:26 

7D78:02 02 02 02 01 02 02 02:38 

7D80:02 01 01 01 01 01 02 02:31 

7D88:02 02 02 02 02 01 01 02:40 

7D90:01 01 02 01 01 02 01 01:3A 

7D98:02 02 02 01 01 02 02 01:40 

7DA0:01 01 01 08 08 08 08 01:DB 

7DA8:17 01 08 08 08 01 01 01:B3 

7DB0:01 02 02 01 01 02 02 02:6B 

7DB8:01 01 02 01 01 01 02 01:63 

7DC0:02 01 01 02 02 02 02 01:78 

7DC8:16 02 01 01 01 01 02 01:87 

7DD0:01 02 01 01 02 01 01 02:80 

7DD8:01 01 02 01 01 02 01 01:82 

7DE0:01 01 02 02 02 01 01 01:8D 

7DE8:02 01 01 02 01 01 02 01:95 

7DF0:01 02 02 02 01 01 02 01:A1 

7DF8:01 01 01 01 02 01 18 02:47 

7E00:02 02 02 01 01 01 01 02:B0 

7E08:01 01 02 01 01 01 01 01 : AD 

7E10:02 01 01 01 01 02 02 02:08 

7E18:02 01 13 02 01 01 02 01:FC 

7E20:01 01 01 01 02 02 02 01:D4 

7E28: 0F 02 01 01 02 02 02 02:F4 

7E30:01 02 02 02 02 01 01 01:E0 

7E38:01 01 02 02 02 02 03 03:0A 

7E40-.03 03 03 03 03 03 03 03:2A 

7E48:03 03 03 03 03 03 03 03:32 

7E50:03 03 03 16 01 01 01 01:52 

7E58:01 01 01 01 01 01 01 01 : FA 

7E60:01 01 01 01 17 03 03 01:8A 

7E68-.02 02 02 02 01 01 11 02:80 

7E70:02 12 01 02 01 01 01 02:41 

7E78:01 03 03 01 01 02 01 01:2A 

7E80:02 01 02 01 01 02 01 02:34 

7E88:02 01 02 02 01 03 03 01:40 

7E90:01 02 01 01 02 01 02 01:40 

7E98:01 02 01 02 01 02 01 02:4E 

7EA0:01 03 03 01 01 02 01 01:52 

7EA8:02 01 02 01 01 02 01 02:50 

7EB0:01 01 01 02 01 03 03 01:70 

7EB8:01 02 01 01 02 01 02 01:68 

7EC0:01 02 01 02 01 01 01 02:70 

7EC8:01 03 03 01 02 02 02 02:8E 

7ED0:01 01 0F 02 02 10 01 02:07 

7ED8:01 01 01 02 01 03 03 13:28 

7EE0:01 01 01 01 01 01 0" 01:82 

7EE8:01 01 01 01 01 01 01 01:8A 

7EF0:18 03 03 03 03 03 03 03:EF 

7EF8:03 03 03 03 03 03 03 03:E2 

7F00:03 03 03 03 03 03 16 06:88 

7F08:08 08 08 08 08 08 08 07:9F 

7F10:08 08 08 08 08 08 08 06:9F 

7F18:06 16 06 13 01 08 08 08:D4 

7F20:08 08 08 08 05 06 07 07:95 

7F28:07 07 07 01 01 05 05 01:23 

7F30:01 08 08 08 01 07 07 07:90 

7F38:07 07 07 07 07 07 07 01:83 

7F40:01 05 08 06 06 08 06 07:AA 

7F48:08 08 08 08 08 06 06 08:CD 

7F50:08 08 05 06 06 05 08 06:B2 

7F58:08 05 08 08 08 08 08 01:B9 

7F60:18 06 06 05 07 06 07 07:D9 

7F68:06 05 08 08 08 08 08 08:FF 

7F70:08 08 06 16 17 07 06 05:60 

7F78:05 06 08 06 08 05 08 05:DE 

7F80:05 06 06 07 07 07 08 08:03 

7F88:08 08 07 05 01 07 05 08:DA 

7F90:06 07 08 01 01 07 07 07:D7 

7F98:07 07 07 07 07 07 07 07:13 

7FA0:07 07 05 0A 06 07 08 01:F3 

7FA8:01 08 08 08 08 01 08 08:16 

7FB0:08 08 08 08 08 08 05 09:42 

7FB8:12 07 15 05 05 05 05 05:20 

7FC0:05 08 08 08 08 08 08 08:5C 

7FC8:08 08 08 05 05 15 00 00:22 




EXPLOR 


L f étroitesse «au pixel 
près» de certains pas¬ 
sages rend ce jeu parti¬ 
culièrement difficile. Le dépla¬ 
cement vers le bas est «natu¬ 
rel». Les trois autres directions 
-ont à solliciter par le joystick 
ou les touches directionnelles. 


Pur classicisme dans cette sempiternelle 
récolte de clés, si ce n'est la célérité des 
monstres et l'agaçant phénomène de 
gravitation issu de notre bonne vieille 

planète. 


Sauvegarde 

Sauvez sous le nom évident de 
«EXPLOR» le court listing 
Basic de chargement. Entrez 
ensuite par Amsaisie V.2 en 
vous reportant à son mode 
d'emploi, le listing de codes 
hexadécimaux. Spécifiez 8000 
comme adresse de début est 
sauvegardez le fichier binaire 



sous le nom de «EXPLORE». Il 
est vivement conseillé de mor¬ 
celer votre travail en plusieurs 
fichiers (El, E2, etc.). Ces der¬ 
niers devront ultérieurement 
être chargés à la suite (LOAD 
"El" : LOAD ’ , E2 , \ etc.) après 
un MEMORY &7FPF et sauve¬ 
gardés ainsi dans un fichier 
unique: 

SAVE "EXPLORE’hb, &8000, 
&1678 


Bruno Barbé 


« 


! 1792 ] 

2 

* EXPLOR 

* [512] 

3 

par 

* [40] 

4 

Bruno BARBE 

* [1213] 

5 


••• [1752] 

6 

MEMORY &7999 

[513] 


7 LOAD'* ! explore, bin" . &80 [1672] 
00 

8 CALL &82C7 [479] 

9 score=(PEEK(&8000)*200 [11263] 
)+(10000*PEEK(&8001))+(1 
000*PEEK(&8004)):LOCÀTE 

1,24:PRINT "SCORE : ", scor 
e; :POKE &8000,0:POKE &80 
01,0:POKE &8004,0 :CLEAR 
INPUT 

10 a$=INKEY$: IF a$= M ” TH [1561] 
EN 10 ELSE 8 


8000:00 

00 

01 

00 

00 

00 

00 

00:83 

8008:00 

00 

04 

42 

41 

52 

42 

45 :C3 

8010:20 

42 

72 

75 

6E 

6F 

20 

70: 7E 

8018:72 

65 

73 

65 

6E 

74 

65 

45 : 8A 

8020:58 

50 

4C 

4F 

52 

45 

00 

00 : F0 

8028:00 

00 

00 

00 

00 

00 

00 

00 : A8 

8030:00 

00 

00 

00 

00 

00 

00 

00 :B0 

8038 : 00 

00 

00 

00 

00 

00 

00 

00 : B8 

8040:00 

00 

00 

00 

00 

00 

00 

00 : C0 

8048 : 00 

00 

00 

00 

00 

00 

00 

00 :C8 

8050:00 

00 

00 

00 

00 

00 

00 

00 : D0 

8058:00 

00 

00 

00 

00 

00 

00 

00 :D8 

8060: 00 

00 

00 

00 

00 

00 

CC 

10 : F4 

8068:80 

33 

EE 

30 

C0 

77 

FF 

40 : DB 

8070:20 

FF 

FF 

B3 

DC 

FF 

FE 

32:9F 

8078 :C4 

F7 

EC 

33 

CC 

73 

A8 

01:88 

8080:08 

51 

40 

0F 

0F 

20 

41 

0F:F0 

8088:0F 

28 

B3 

8B 

0C 

18 

B3 

8B:B5 

8090: 0C 

DC 

Fl 

Fl 

Fl 

Fl 

Fl 

Fl :E5 


8098:F1 Fl 71 Fl Fl E0 30 Fl:CF 
80À0: Fl C0 10 Fl Fl 80 80 20:BA 
80A8:40 10 80 40 20 10 80 80:88 
80B0:10 10 90 11 88 90 90 32:DC 
80B8:C4 90 40 B2 D4 20 20 51:F0 
80C0:A8 40 90 77 EE 90 80 FF:72 
80C8: FF 10 71 FC F3 E8 11 FC:30 
80D0:F3 88 71 FC F3 E8 80 FF :3D 
80D8: FF 10 80 F7 FE 10 90 00:19 
80E0:00 90 10 00 00 80 70 F0:40 
80E8:F0 F0 87 0F 87 0F 87 0F : 2F 
80F0:87 0F 87 0F 87 0F 87 0F:0C 
80F8:87 0F 87 0F 87 0F 87 0F:14 
8100:87 0F F0 F0 F0 F0 F0 F0:16 
8108 :F0 F0 0F 87 0F 87 0F 87:B8 
8110:0F 87 0F 87 0F 87 0F 87:0D 
8118:0F 87 0F 87 0F 87 0F 87:15 
8120:0F 87 70 F0 F0 E0 0F 0F:9F 
8128:0F 0F 08 00 11 89 08 00:B1 
8130:22 45 3B FF CC 23 19 44-A7 
8138:22 45 19 44 11 89 08 00:83 
8140:00 01 08 00 00 01 0F 0F:C2 
8148:0F 0F 0A 0A 0A 0B 0A 0A:46 
8150:0A 0B 0A 0A 0A 0B 0A 0A:41 
8158:0A 0B 0A 0A 0A 0B 0A 0A:49 
8160:0A 0B 0F 0F 0F 0F 80 20:8F 
8168:40 10 80 40 20 10 80 80:49 
8170:10 10 90 11 88 90 90 32:9D 
8178 :C4 90 40 B2 D4 20 20 51:B1 
8180 :A8 40 90 77 EE 90 80 FF:33 
8188 : FF 10 71 FC F3 E8 11 FC:F1 
8190 :F3 88 71 FC F3 E8 80 FF :FE 
8198 : FF 10 80 F7 FE 10 90 00:DA 
81A0:00 90 10 00 00 80 FF FF:62 
81A8: FF FF F8 F3 FC Fl F8 B3:CC 
81B0:DC Fl F8 B3 DC Fl F8 33:F5 
81B8:CC Fl F8 33 CC Fl E8 34:35 
81C0:4C 71 F9 EF 7F F9 E8 33:57 
81C8:4C 71 C8 33 CC 31 C8 33:CD 
81D0:CC 31 88 33 CC 11 88 33:95 


81D8:CC 

11 

88 

33 

CC 

11 

88 

33 : 5D 

81E0:CC 

11 

FF 

FF 

FF 

FF 

00 

70: BD 

81E8:F0 

El 

00 

F0 

F0 

C3 

10 

F0:0D 

81F0:F0 

87 

30 

F0 

F0 

0F 

70 

F0 : 5 9 

81F8: El 

0F 

F0 

F0 

C3 

0F 

FF 

FF: 22 

8200:CF 

0F 

FF 

FF 

CF 

0F 

FF 

FF :BE 

8208 : CF 

0F 

FF 

FF 

CF 

0F 

FF 

FF : C6 

8210 : CF 

0F 

FF 

FF 

CF 

0E 

FF 

FF :C8 

8218 : CF 

0C 

FF 

FF 

CF 

08 

FF 

FF : A6 

8 2 2 0 : CF 

00 

FF 

FF 

CE 

00 

11 

FF: DF 

8228 : FF 

88 

33 

FF 

FF 

CC 

67 

3F: DA 

8230 : CF 

6E 

CF 

DB 

9F 

B7 

CF 

DF : 3C 

8238:9F 

BF 

EF 

3F 

CF 

7F 

FF 

FF: 96 

8240 : FF 

FF 

8F 

FF 

FF 

3F 

DE 

3F:E7 

8248 : CF 

B7 

CF 

C3 

3C 

7F 

CF 

70 :CF 

8250.E0 

7F 

EF 

18 

Cl 

7F 

77 

0C:3D 

8258:03 

EE 

77 

9E 

97 

EE 

33 

CF: FA 

8260:3F 

CC 

11 

FF 

FF 

88 

11 

FF: 82 

8268 : FF 

88 

33 

FF 

FF 

CC 

77 

FF: 8A 

8270 : FF 

EE 

FF 

FF 

FF 

FF 

FF 

FF: AC 

8278 : FF 

FF 

FF 

FF 

FF 

FF 

FE 

F0 :57 

8280 :F0 

F7 

FE 

F0 

F0 

F7 

FE 

F0 : 86 

8288 :F0 

F7 

FE 

F0 

F0 

F7 

FF 

FF : 0D 

8290 : FF 

FF 

FF 

FF 

FF 

FF 

FF 

FF ; EE 

8298 : FF 

FF 

77 

FF 

FF 

EE 

33 

FF: 64 

82A0: FF 

CC 

11 

FF 

FF 

88 

00 

C0 :13 

82A8:2D 

2D 

20 

28 

4B 

29 

45 

59 :C9 

82B0:42 

4F 

41 

52 

44 

20 

4F 

52 : EA 

82B8: 20 

28 

4A 

29 

4F 

59 

53 

54 : B2 

82C0:49 

43 

4B 

20 

2D 

2D 

2B 

21:96 

82C8:96 

95 

22 

05 

80 

CD 

1F 

83 :C3 

82D0: CD 

2F 

84 

CD 

06 

BB 

3E 

01:77 

82D8.CD 

0E 

BC 

26 

06 

2E 

0C 

CD : FD 

82E0: 75 

BB 

21 

A8 

82 

7E 

FE 

2B : 18 

82E8: CA 

F4 

82 

E5 

CD 

SA 

BB 

El :78 

82F0: 2 3 

C3 

E5 

82 

3E 

2D 

CD 

1E:A1 

82F8:BB 

C2 

07 

83 

3E 

25 

CD 

1E : 79 

8300 : BB 

C2 

0F 

83 

C3 

F4 

82 
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9140:03 06 03 03 
9148:06 06 06 03 
9150:00 00 00 03 
9158:03 06 03 03 
9160:06 06 06 03 
9168:06 06 06 06 
9170:03 03 03 03 
9178:03 03 03 03 
9180:02 CC 03 07 
9188:01 70 06 02 
9190:03 03 03 03 
9198:03 03 03 00 
91A0:00 03 00 03 
91A8:00 03 00 03 
91B0:00 03 03 00 
91B8:00 03 00 03 
9100:00 03 00 03 
9108:00 03 03 00 
91D0:00 03 00 03 
9108:00 03 00 03 
91E0:00 03 03 00 
91E8:00 03 03 03 
91F0:00 03 00 03 
91F8:00 03 03 00 
9200:00 03 03 03 
9208:00 03 00 03 
9210:00 03 03 03 
9218:03 03 00 03 
9220:00 03 00 03 
9228:00 03 03 03 
9230:00 03 00 03 
9238:00 03 03 00 
9240:00 03 03 00 
9248:00 03 00 03 
9250:03 00 03 00 
9258:00 03 03 00 
9260:00 03 00 03 
9268:03 00 00 00 
9270:00 03 03 04 
9278:03 03 03 03 
9280:03 08 02 70 
9288:05 02 03 60 
9290:03 03 03 03 
9298:03 03 03 03 
92A0:00 03 00 03 
92A8: 03 00 00 03 
92B0:00 03 00 03 
92B8:00 00 00 03 
9200:03 00 00 00 
9208:00 03 03 03 
92D0:00 03 00 03 
92D8: 03 00 00 03 
92E0: 00 03 03 03 
92E8:03 03 03 03 
92F0:03 03 00 03 
92F8: 00 00 03 03 
9300:00 03 00 00 


06 03 06 03:83 
03 03 03 03:76 
03 03 03 03:60 
02 02 00 40:47 
03 08 01 94:3B 
03 03 03 03:10 
03 03 03 03:80 
03 00 00 00:3A 
03 00 03 00:60 
00 06 03 03 :9E 
00 03 00 03:76 
03 00 03 00:78 
06 06 00 03:B9 
00 00 00 03:88 
03 00 00 00 :8D 
00 00 00 03:80 
03 03 03 03:E2 
03 06 03 00:DE 
00 00 00 03:AD 
00 00 00 03:B8 
03 06 00 00:DF 
00 00 00 03;B1 
03 03 03 03:13 
03 06 03 00:FD 
00 00 00 03:02 
03 06 04 03:44 
03 06 06 06 :7E 
06 06 06 03:89 
03 03 03 03:43 
03 06 03 00:51 
06 06 06 03:71 
03 03 03 03:5B 
03 06 06 06:AE 
06 06 06 03:B9 
03 03 03 03:6D 
00 24 03 08:94 
03 60 C6 09:11 
A4 00 03 03:35 
03 03 03 03 :8D 
00 03 00 00:4D 
00 03 03 00:6A 
00 03 00 03:75 
00 03 00 03:7A 
00 03 03 00:82 
00 03 00 03:80 
00 03 00 03:92 
00 03 03 00:9A 
00 03 00 03.A5 
00 03 00 00:92 
00 03 03 00:BB 
00 03 00 03:BD 
00 03 00 03:02 
00 03 03 00:D4 
00 00 00 03:04 
03 03 00 03:F6 
00 03 03 03:FE 
03 03 00 00:E5 
00 03 00 00:E7 
00 03 03 03:13 
00 03 00 03:03 
00 00 03 00:F6 
00 03 03 00:13 
00 03 00 03:18 
03 00 03 03:35 
00 03 03 00:2B 
00 03 00 00:0F 
03 03 03 03:6F 
03 03 01 00:30 
Cl 07 00 30 : IA 
03 09 44 C6:7D 
03 03 03 03:8E 
03 00 00 03:6F 
00 03 00 03 :6E 
00 03 00 00:5B 
03 03 03 03 :A2 
00 00 00 03:6E 
00 03 00 03:7F 
03 00 03 03 :B1 
00 03 03 03:B3 
00 00 00 00:79 
03 03 00 03:06 
03 03 03 03:E6 
00 00 00 00:97 
03 03 00 03:D8 
03 00 03 03:D5 


47 




9308:03 

03 

00 

03 

00 

03 

03 

03 :EF 

9430:03 

00 

00 

00 

00 

03 

06 

03 : IB 

9558:00 

03 

00 

03 

00 

00 

00 

03:17 

9310:00 

00 

03 

03 

03 

03 

00 

03 :F1 

9438:00 

03 

03 

00 

03 

00 

00 

00 : EA 

9560:03 

00 

03 

03 

03 

03 

00 

03 :46 

9318:00 

03 

03 

03 

00 

00 

00 

03: DE 

9440:00 

03 

06 

03 

00 

03 

03 

00:1F 

9568:00 

03 

00 

03 

03 

00 

03 

03: 4B 

9320:03 

03 

00 

03 

00 

00 

00 

00 :C8 

9448:03 

03 

03 

03 

03 

03 

06 

03: 5D 

9570:03 

03 

00 

00 

00 

00 

00 

03 :26 

9328:00 

00 

00 

03 

03 

03 

00 

03:00 

9450:00 

03 

03 

00 

00 

00 

00 

00 : F3 

9578:03 

04 

03 

03 

03 

03 

03 

03 :7B 

9330:00 

03 

00 

03 

03 

03 

00 

03: 0E 

9458:00 

00 

00 

03 

00 

03 

03 

06 :4F 

9580:03 

03 

03 

03 

03 

88 

06 

08:10 

9338 : 03 

03 

00 

03 

03 

03 

00 

03:19 

9460:06 

06 

06 

06 

06 

06 

00 

03 : 8A 

9588:03 

20 

05 

09 

00 

78 

Cl 

07:22 

9340:00 

00 

00 

03 

03 

03 

00 

00:00 

9468:00 

03 

03 

06 

06 

06 

06 

06 : BF 

9 590:00 

20 

02 

02 

44 

06 

00 

00 : AB 

9348 : 00 

00 

00 

03 

00 

03 

03 

03:26 

9470:06 

06 

00 

03 

00 

03 

03 

03:61 

9598:00 

00 

00 

00 

00 

00 

00 

00 : 2D 

9350:03 

03 

03 

03 

03 

03 

03 

03:4F 

9478:03 

03 

03 

03 

03 

03 

04 

03:7F 

95A0:00 

00 

00 

00 

03 

03 

03 

03 :83 

9358:00 

03 

03 

03 

03 

06 

06 

06:93 

9480:03 

03 

02 

E0 

03 

07 

02 

38 : 6A 

9 5À8:03 

03 

03 

03 

00 

00 

00 

00 : 5B 

9360:06 

06 

06 

03 

00 

03 

03 

03:62 

9488:C3 

02 

03 

94 

02 

09 

03 

FC : 31 

95B0:03 

00 

00 

03 

03 

00 

00 

03 :7B 

9368 : 03 

06 

06 

06 

06 

06 

06 

03 :B8 

9490:01 

08 

88 

06 

03 

03 

03 

03 : F3 

95B8 :00 

00 

00 

00 

03 

00 

00 

00 : 50 

9370 : 00 

03 

03 

03 

03 

03 

03 

03: 6C 

9498:03 

03 

03 

03 

03 

03 

03 

03:98 

9500:00 

00 

00 

03 

00 

00 

00 

00:61 

9378:03 

03 

03 

03 

04 

03 

03 

03: 7C 

94A0 :03 

00 

00 

03 

00 

03 

00 

03 :6D 

9508:03 

03 

03 

00 

00 

03 

03 

03 : AE 

9380:03 

8C 

C2 

02 

02 

0C 

C5 

09:79 

94A8:00 

03 

00 

03 

03 

00 

00 

00 : 5D 

9 5D0:00 

00 

00 

00 

00 

00 

00 

03 : 7D 

9388:01 

C0 

C5 

07 

03 

28 

C5 

08 : A9 

94B0:00 

03 

00 

03 

00 

00 

00 

03 : 6E 

95D8 :03 

00 

00 

00 

00 

00 

00 

00:70 

9390:44 

C6 

03 

03 

03 

03 

03 

03:56 

94B8:03 

00 

00 

03 

00 

03 

00 

03:85 

95E0 :03 

03 

03 

00 

00 

03 

03 

03 :C6 

9398:03 

03 

03 

03 

03 

03 

03 

06: AF 

9400:00 

03 

00 

03 

03 

00 

00 

00:75 

95E8:00 

00 

00 

00 

03 

03 

03 

03 :CB 

9 3A0:06 

06 

06 

06 

06 

06 

06 

06 : 0B 

9408:00 

03 

00 

03 

00 

00 

00 

03:86 

9 5F0:03 

03 

03 

03 

00 

00 

00 

00 : A3 

93A8:06 

03 

03 

06 

06 

06 

06 

06:04 

94D0:03 

00 

00 

03 

00 

03 

00 

03 : 9D 

95F8:03 

00 

00 

03 

00 

00 

00 

00:90 

93B0: 06 

06 

06 

06 

06 

03 

03 

06 :F4 

94D8:00 

03 

00 

03 

03 

00 

00 

00 : 8D 

9600:00 

00 

00 

00 

03 

03 

03 

03 :E4 

93B8:06 

06 

06 

06 

06 

06 

06 

06:23 

94E0:00 

03 

00 

03 

00 

00 

00 

03 : 9E 

9608:00 

00 

00 

00 

00 

00 

00 

00 : 9E 

93C0:06 

03 

03 

06 

03 

03 

03 

03 :CE 

94E8:03 

00 

00 

03 

00 

03 

00 

03 : B5 

9610:03 

03 

03 

03 

03 

03 

03 

03:12 

93C8:03 

03 

06 

06 

06 

03 

03 

06:03 

94F0:00 

03 

00 

03 

03 

00 

00 

00 : A5 

9618:00 

00 

00 

00 

00 

00 

00 

00 : AE 

93D0:03 

00 

00 

00 

00 

03 

06 

06 :D2 

94F8:00 

03 

00 

03 

00 

00 

00 

03 : B6 

9620:00 

00 

00 

03 

00 

00 

00 

00:02 

93D8:06 

03 

03 

06 

03 

00 

00 

00 : A7 

9500:03 

00 

00 

03 

00 

03 

00 

03: CE 

9628:00 

00 

00 

00 

00 

00 

00 

03 : D6 

93E0:00 

03 

06 

06 

06 

03 

03 

06:18 

9508:00 

03 

00 

03 

03 

00 

00 

•00 : BE 

9630:00 

00 

00 

00 

03 

03 

03 

03:14 

93E8:03 

00 

00 

00 

00 

03 

06 

06 : EA 

9510:00 

03 

00 

03 

00 

00 

00 

•03: CF 

9638:03 

03 

03 

03 

00 

00 

00 

00 : EO 

93F0:06 

03 

03 

06 

03 

00 

00 

00 : BF 

9518:03 

00 

00 

03 

00 

03 

00 

03 : E6 

9640:03 

00 

00 

00 

00 

00 

00 

03 :F1 

93F8:00 

03 

06 

06 

06 

03 

03 

00:00 

9520:00 

03 

00 

03 

03 

00 

00 

00 : D6 

9648:00 

00 

00 

00 

03 

03 

03 

03:20 

9400:00 

00 

00 

00 

00 

00 

00 

00:94 

9528:00 

03 

00 

03 

00 

00 

00 

03 :E7 

9650:03 

03 

03 

03 

00 

00 

00 

00 :04 

9408:00 

03 

03 

00 

03 

00 

00 

00 :BA 

9530:03 

03 

00 

03 

00 

03 

00 

03:04 

9658:03 

03 

03 

03 

03 

03 

03 

03 : 5A 

9410:00 

03 

06 

03 

00 

03 

03 

00: EF 

9538:00 

03 

00 

03 

03 

03 

00 

00 : 00 

9660:00 

00 

00 

00 

03 

00 

00 

03 : 1D 

9418:03 

00 

00 

00 

00 

03 

06 

03:03 

9540:00 

03 

00 

03 

00 

00 

00 

03 : FF 

9668:03 

00 

00 

00 

00 

00 

00 

00:01 

9420:00 

03 

03 

00 

03 

00 

00 

00 :D2 

9548:03 

03 

00 

03 

00 

00 

00 

03 : 0A 

9670:03 

03 

03 

03 

00 

03 

03 

03 :63 

9428:00 

03 

06 

03 

00 

03 

03 

00:07 

9550:00 

03 

00 

03 

03 

00 

00 

00:06 











Vous programmez comme un chef 
sur une de nos quatre machines de prédilection ? j 

(CPC, ST, PC et AMIGA) I 

FAITES-NOUS PART DE VOS ŒUVRES. I 

| 

Votre esprit inventif a fait de vous un génie de la bidouille ?j 
ADRESSEZ-NOUS VOS ARTICLES ET RÉALISATIONS. j 

Toute publication est justement rémunérée. ! 
























PROGRAMMATION 


Métamorphose 

THE BOSS 


A ux commandes (joystick 
LA ou touches fléchées) d’un 
L 1 véhicule tout terrain, 
vous avez pour mission de 
récolter la totalité des précieux 
fruits. Coincer les monstres 
(aïe!) au moyen de quelques 
rochers nécessite un tant soit 
peu de réflexion. Gaffé aux dés 
rouges! 


Sauvegarde 

Sauvez sous un nom de votre 
choix, le court listing Basic de 
chargement. Entrez ensuite par 
Amsaisie V.2 en vous reportant 
à son mode d’emploi, les deux 
listings de codes hexadéci¬ 
maux. 


Sur une lointaine planète, vivent des 
créatures agitées aussi étranges que 
dangeureuses. Une fois immobilisées, 
elles se transforment en fruits rares et 

recherchés. 



Nom 

Adr. déb. Long 

BOSS1 

&7800 

&1CFD 

BOSS2 

&94FD 

&114F 


La longueur est ici précisée à 
l’attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être réunis en deux 
fichiers définitifs. 


Bruno Barbé 





THE BOSS 
par 

Bruno BARBE 


1 
2 

3 

4 

5 

6 

7 ’******************** 

8 MEMORY 45000:LOAD "Ibo 
ssl.bin”,47800:LOAD”Ibos 
s2.bin”.494FD 

9 FOR i=0 TO 15:INK 1.0: 
NEXT:CALL 47E8C 


[657] 

[175] 

[543] 

[218] 

[602] 

[175] 

[657] 

[4393] 


[2056] 


10 MODE 1 :S00RE1 = ((PEEK( [5502] 
47801>‘256>+PEEK(47800)) 

*100 rLOCATE 1.2:PRINT " 

PLAYER 1” 

11 LOCATE 5,4:PRINT ” S [2438] 
CORE="SCORE1 

12 IF PEEK(4780F)=1 THEN [1517] 
15 

13 SCORE2=((PEEK(47803)* [4393] 
256)+PEEK(47802))*100:LO 

CATE 1.8:PRINT " PLAYER 
2 " 


14 LOCATE 5.10:PRINT " [1535] 

S00RE=”S00RE2 

15 A$=INKEY$:IF A$<>”" T [1825] 
HEN 15 

16 CALL 4BB06 [393] 

17 MODE 1 :LOCATE 14.24:1 [4144] 

NPDT "AGAIN ? (y/n):“.b$ 

18 b$=UPPER$(b$): IF b$=" [1763] 
Y” THEN 9 

19 NEW [318] 


7800:00 

00 

00 

00 

00 

00 

00 

00:78 

7808:00 

00 

00 

00 

00 

00 

00 

01:88 

7810:00 

00 

00 

00 

00 

00 

00 

00:88 

7818:00 

00 

42 

41 

52 

42 

45 

20:63 

7820:42 

72 

75 

6E 

6F 

20 

70 

72:60 

7828:65 

73 

65 

6E 

74 

65 

54 

48 :00 

7830:45 

20 

42 

4F 

53 

53 

04 

10: 5C 

7838:00 

00 

00 

00 

00 

00 

00 

00 :B0 

7840:00 

00 

00 

00 

00 

00 

00 

00 : B8 

7848:00 

00 

00 

00 

00 

00 

00 

00 :C0 

7850:00 

00 

00 

00 

00 

00 

00 

00 :C8 

7858:00 

00 

00 

00 

00 

00 

00 

00 :D0 

7860:00 

00 

00 

00 

00 

00 

00 

00 :D8 

7868:00 

00 

00 

00 

00 

00 

00 

00 : E0 

7870:00 

00 

00 

00 

00 

00 

00 

00 :E8 

7878:04 

10 

70 

80 

10 

£0 

F0 

C0 :84 

7880:30 

F0 

F0 

C3 

3C 

F0 

F0 

DI :C8 

7888 :B8 

F0 

70 

F7 

FE 

£0 

02 

FF: 00 

7890:FF 

04 

13 

CF 

44 

8C 

13 

CE : 15 

7898:B7 

8C 

13 

DE 

37 

8C 

13 

CF :E8 

78A0: 3F 

8C 

02 

FF 

FF 

04 

70 

F7:4C 

78A8.FE 

£0 

F0 

DI 

B8 

F0 

F0 

C3:D2 

78B0:3C F0 

F0 

C0 

30 

F0 

70 

80 :B4 

78B8:10 

E0 

04 

10 

11 

FF 

FF 

88 :D4 

78C0:23 

3E 

C7 

4C 

23 

3E 

C7 

4C : 50 

78C8:33 

FE 

F7 

CC 

32 

F0 

F0 

C4:CE 

78D0:32 

00 

00 

C4 

32 

00 

00 

C4 : A4 

78D8:32 

F0 

F0 

C4 

11 

FF 

FF 

88: CA 

78E0:00 

F8 

Fl 

00 

CC 

F8 

Fl 

33:16 

78E8:FF 

F8 

Fl 

FF 

CC 

F8 

Fl 

33:19 

78F0:CC 

F8 

Fl 

33 

FF 

F8 

Fl 

FF : 1D 

78F8:CC 

FF 

FF 

33 

04 

10 

07 

0F: 20 

7900:0F 

0E 

0F 

0F 

0F 

0F 

1E 

87 :BC 

7908:0F 

C3 

1E 

87 

0F 

C3 

0F 

0F:4A 

7910:0F 

0F 

0F 

0F 

0F 

0F 

0F 

0F:A5 

7918:0F 

0F 

0F 

0F 

0F 

0F 

0F 

0F: AD 

7920:0F 

0F 

0F 

0F 

0F 

0F 

0F 

0F:B5 


7928:0F 0F 1E 87 0F C3 1E 87:2B 
7930:0F C3 0F 0F 0F 0F 0F 0F:2D 
7938:0F 0F 07 0F 0F 0E 04 10:6A 
7940:5F 5F 5F 5F AF AF AF AF:35 
7948:5F 5F 5F 5F AF AF AF AF:3D 
7950:5F 5F 5F 5F AF AF AF AF:45 
7958:5F 5F 5F 5F AF AF AF AF :4D 
7960:5F 5F 5F 5F AF AF AF AF:55 
7968:5F 5F 5F 5F AF AF AF AF :5D 
7970:5F 5F 5F 5F AF AF AF AF:65 
7978:5F 5F 5F 5F AF AF AF AF:6D 
7980:04 10 77 FF FF EE FF FF:FE 
7988:FF FF CF 0F 0F 7F CF 0F:0D 
7990:0F 7F CF 0F 0F 7F CF 0F:25 
7998:0F 7F CF 0F 0F 7F CF 0F:2D 
79A0:0F 7F CF 0F 0F 7F CF 0F:35 
79A8-.0F 7F CF 0F 0F 7F CF 0F:3D 
79B0:0F 7F CF 0F 0F 7F CF 0F:45 
79B8.-0F 7F FF FF FF FF 77 FF:65 
79C0:FF EE 04 10 01 74 C0 00:5D 
79C8:00 FE F0 00 11 FF F0 80:EC 
79D0:33 FF FC C0 77 FF FE E0: AD 
79D8:FF FF FF F0 FF FF FF F0:79 
79E0:FF FF FF F0 FF FF FF F0:81 
79E8:FF FF FF F0 FF FF FF F0:89 
79F0:77 FF FE E0 33 FF PC C0:35 
79F8:11 FF F0 80 00 FE F0 00:D4 
7A00:00 74 C0 00 04 10 77 FF :4F 
7A08:FF EE DE 5A 5A 7F ED A5:BE 
7A10:A5 F7 DE SA 5A 7F ED A5:7E 
7A18:A5 F7 DE 5A 5A 7F ED A5:86 
7A20:A5 F7 DE 5A 5A 7F ED A5:8E 
7A28:A5 F7 DE 5A 5A 7F ED A5:96 
7A30:A5 F7 DE 5A 5A 7F ED A5:9E 
7A38 : A5 F7 DE SA 5A 7F ED A5:A6 
7A40:A5 F7 77 FF FF EE 04 10:D9 
7A48:03 08 00 0C 00 06 01 08:70 
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int 




7A50:02 01 0B 00 00 77 1F 88:D0 
7A58:00 FF BF CC 11 FF FF EE:F5 

7A60: 33 FE FF FF 77 FE FF FF :3A 

7A68:77 FC FF FF 77 FD FF FF:7C 

7A70:77 F9 FF FF 77 FB FF FF:72 

7A78:77 FB FF FF 33 FF FF CC:AA 

7A80:11 FF FF 88 00 FF FF 00:19 

7A88:00 C0 00 00 01 IA 02 06:61 

7A93:03 0B 06 00 0E 00 CD 38:D6 

7A98:BC DD 21 8A 7A 06 04 C5:DD 

7AA2: DD 7E 00 DD 46 01 DD 4E:46 

7AA8 : 01 CD 32 BC DD 23 DD 23:89 

7AB0:C1 10 EC C9 06 00 0E 00:73 

7A38:CD 38 BC 06 04 10 01 C9:7E 

7AC0:C5 78 06 00 0E 00 CD 32:72 

7AC8:BC Cl C3 BD 7A 3A 19 78:EA 

7AD0:FE 30 CA 7F 7B FE 61 CA:54 

7AD8:85 7B FE 62 CA 96 7B FE:12 

7AL0:63 CA A9 7B FE 64 CA AF:84 

7AE8:7B FE 65 CA B5 7B FE 66:BD 

7AF0:CA BB 7B FE 67 CA CE 7B:4C 

7AF8:FE 68 CA D4 7B FE 62 CA:47 

7B00:E5 7B FE 64 CA EB 7B 11:39 

7B08:07 7B C3 Fl 7B 3A 06 78:3A 

7B10:3C 32 06 78 3A 05 78 3C:85 

7B18:32 05 78 DD 21 82 7C DD:A8 

7B20:E5 DD 7E 01 FE 00 C2 3C:DC 

7B28:7B DD 75 00 DD 74 01 3E:37 
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Vous programmez comme un chef 
sur une de nos quatre machines de prédilection ? 

(CPC, ST, PC et AMIGA) 

FAITES-NOUS PART DE VOS ŒUVRES. 

Votre esprit inventif a fait de vous un génie de la bidouille ? 
ADRESSEZ-NOUS VOS ARTICLES ET RÉALISATIONS. 

Toute publication est justement rémunérée. 
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SPACE THIEF 


A fin d'acquérir le bijou 
suprême, notre héros (5 
\ :es^ devra errer dans 
toutes les pièces à la recherche 
de plasma-gommes en évitant 
quelques tirs automatiques. 
Après quoi, il lui faudra cou¬ 
per l’alarme et le groupe élec¬ 
trogène pour que s’ouvre enfin 
la pièce sacrée. I.a direction 
vers le bas est assurée par la 
gravite. Les trois autres sont à 
solliciter par le joystick ou les 
touches fléchées. A noter les 
décors somptueux, la fluidité 
de l’animation et l’accès spec¬ 
taculaire aux écrans. 


Sauvegarde 

Sauve/, sous un nom de votre 
choix, le court listing Basic de 
chargement. Entre/ ensuite par 
Am>tu.sit' V.l en vous reportant 
à son mode d'emploi, les deux 
listings de codes hexadéci¬ 
maux. 


Nous sommes en 2144. Un immense 
musée souterrain abrite une pierre 
rarissime issue d'une planète inconnue. 
Travesti en fantôme, un baroudeur de 
l’espace vient de s’introduire dans 

l’édifice... 



L’adresse d’implantation plu¬ 
tôt basse du second listing 
(SPACE2) nécessite la modifi¬ 
cation préalable de notre utili 
taire maison. 

• Ligne 10 : OPENOUT’d” : 
MEMORY &9FF : CLOSEOIJT 

• Ligne 20 : supprime/ le 
MEMORY &2UUU 


Nom Adr. déb. Long 

S PAC El &2800 &2900 

SPACE2 &A00 &DE6 


La longueur est ici précisée à 
l'attention de ceux qui envisa¬ 
gent raisonnablement de mor¬ 
celer leur travail en plusieurs 
fichiers qui devront ultérieure¬ 
ment être reuni? en deux 
fichiers définitifs. 

Sébastien Royer 
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C'EST PROPRE, 
C'EST NET 

D'une structure identique à la précédente 
version (Micro-Mag n°l), Amsaisie V.2 
bénéficie de quelques améliorations qui 
fiabilisent cette fois totalement la saisie 
hexadécimale tout en simplifiant les 
manœuvres de corrections. 


S oit les divers perfection¬ 
nements: . 

- vérification et prise en 
compte par la somme de 
contrôle de l’ordre des Data 
dans chaque ligne saisie, 

- déplacement du curseur 
autorisé dans la ligne sans des¬ 
truction des données. 11 est 
désormais possible de revenir 
par la touche fléchée gauche 
sur une valeur à corriger, puis 
de réafficher la ligne de codes 
par la touche fléchée droite. A 
signaler que cette dernière per¬ 
met de dupliquer rapidement 
une ligne de zéro, 

- Réaffichage automatique 


d’une ligne erronée, afin de 
permettre sa correction de la 
façon ci-dessus évoquée. 

N.B. Possesseurs d'Amsaisie, 
examinez attentivement ce 
nouveau listing afin d'effectuer 
sur votre ancienne version les 
modifications nécessaires. 
Rappelons à l'attention de ceux 
qui l'ignorent, qu ‘Amsaisie V. 2 
permet la saisie aisée de codes 
hexadécimaux présents dans 
nos colonnes sous la forme: 
adresse, suite de huit codes, 
somme de contrôle. Sachez 
que pour un même program¬ 
me, lesdites sommes diffèrent 
selon la version d'Amsaisie uti¬ 
lisée. 


Mode d'emploi 

Après lancement, spécifiez en 
hexadécimal (sans le préfixe 
&) l'adresse de début d’im¬ 
plantation du langage machi¬ 
ne. Celle- ci s'affiche suivie de 
et d’un curseur clignotant. 
Entrez la série de huit codes 
sans vous préoccuper des 
espaces et sans valider par 
Return (validation automa¬ 
tique). En fin de ligne et à l’af¬ 
fichage de entrez la somme 
de contrôle correspondant à la 
ligne saisie. En l’absence d'er¬ 
reur, l'adresse suivante s’af¬ 
fiche, etc. Dans le cas contraire, 
un signal sonore et un message 
vous signale une bévue. 
Effectuez alors la correction 
dans la ligne automatiquement 
réaffichée. En cours de saisie, 
la touche Del est opérationnel¬ 
le. L'appui sur S réalise la sau¬ 
vegarde du langage machine 
après spécification du nom du 
fichier. 

Toutefois, deux solutions s’of¬ 
frent à vous: 

- vous êtes fou et venez de sai¬ 
sir en une seule fois la totalité 
des codes hexadécimaux (très 
nombreux dans la plupart des 
cas). Rien de plus simple: 
après l’entrée de la dernière 
somme de contrôle et l’afficha¬ 
ge de l'adresse suivante, 
appuyez sur S, précisez le nom 
du fichier et validez par 
Return ou Enter. 

- vous êtes raisonnable et dési¬ 
rez morceler votre saisie. Au 
moment de stopper momenta¬ 
nément votre frappe pour la 
poursuivre ultérieurement, 
appuyez sur S après l'affichage 


de l’adresse suivante et attri¬ 
buez un numéro d’ordre à ; 
votre nom de fichier (exemple, , 
PAC1). A la fin de la sauvegar¬ 
de, l’adresse suivante déjà citée 
se réaffiche; notez-la. Elle sera 
l’adresse de début qu’il \ 
conviendra de spécifier lors de 
la reprise de votre travail 
(PAC2). Créez de la sorte une 
suite de fichiers binaires : 
(PAC1, PAC2, PAC3, etc.). 
Finalement, chargez à la suite ; 
tous ces fichiers après un 
MEMORY inférieur à l’adresse 
d'implantation (adresse -1) et 
effectuez une sauvegarde tota¬ 
le et définitive par la comman¬ 
de de type 

Save "nom de fichier", b, adres¬ 
se de début, longueur. 

Le nom du fichier et la valeur 
des paramètres sont toujours 
précisés dans le mode d'em¬ 
ploi des programmes publiés. 

Exemple 

Prenons l’exemple d’un pro¬ 
gramme appelé Pacman, 
d'adresse de début &AOOO et 
morcelé en trois fichiers: PAC1, 
PAC2 et PAC3. Pour les réunir 
en un seul d’après la longueur 
totale &BFF indiquée dans le 
mode d’emploi, il faudra lan¬ 
cer le court programme sui¬ 
vant: 

10 MEMORY &A000-1 
20 LOAD "ÎPACI.BIN" 

30 LOAD "ÎPAC2.BIN" 

40 LO AD "1PAC3.BIN" 

50 PRINT "Placez le support 
de sauvegarde et appuyez sur 
une touche": CALL &BB06 
60 SAVE "ÎPACMAN", b, 
&A000, &BFF 

Sined 



10 * AMSAISIE V.2 par Denis JARRIL (1613J 

20 MEMORY &2000: DIM 0$(18):M0DE 1: [17221] 
BORDER 0: INK 0.0:INK 1.13:CLS:PRIN 
T:PRINT" I pour changer l’adresse 
courante":PRINT” S pour sauver les 
données":PRINT" Tapez les caracte 
res sans espace ni return (tou 
t se lait automatiquement). 

30 PRINT" Les fléchés servent a 1* 14494] 
édition. 

40 PRINT:INPUT" ADRESSE DE DEPART [4092] 

: " . A$ : D$=A$ : IF A5="" T11 EN 40 
50 A=VAL("&"+A5) (1273) 

60 1=0:A5=HEX5(A.4):PRINT:PRINT A$ [3200] 

; ” : " ; :C=VAL( "&%LEFT$( A$, 2 ) )+VAL( " 
&"+RIGHT5(A5.2)) 

70 T$="" : WIIILE T$=~":CALL &BB8A:T$ [3454] 
=INKEY$:CALL &BB8D:WEND:T5=UPPER5( 


T$) 

80 IF T$=CI1R$(242) THEN T5=CUR5(12 [2397] 
7) 

90 IF T$=CHR$(243) THEN T$=0$(I) [2003] 

100 IF T5=" I" THEN CLS:RUN (1132) 

110 IF T$o"S" THEN 140 ELSE D=VAL [3244] 
( ”ic"+D5) : IF D>0 AND A<0 TUEN A=À+6 
5536 

120 PRINT:PRINT:INPUT" NOM : ",N$ [3394] 
: IF N$<>"" THEN SAVE N5.B.D.À-D+1 
130 GOTO 60 [390] 

140 IF T$oCHR$( 127) THEN 160 ELSE [6246] 

IF 1=0 THEN 70 ELSE 1=I-1:PRINT C 
HR$( 8) ; " " ;CHK$(8 ) ; : IF I/2oI\2 TH 
EN PRINT CHR$(8);" ";CHR$(8); 

150 GOTO 70 1396] 

160 IF T$<‘*0" OR T$>"F" THEN SOUND (2699) 

7.150.20:GOTO 70 


170 IF T$<"A" AND T$>"9" THEN SOUN (2630) 
D 7,150,20:GOTO 70 

180 PRINT T$: : IF 1 = 15 THEN PRINT": (3124] 
ELSE IF I/2oI\2 THEN PRINT" "; 

190 0$(I)=T$ (592) 

200 1 = 1 + 1 : IF I<18 THEN 70 (1266] 

210 FOR 1=0 TO 15 STEP 2:X=VAL("&" (4897) 
+0$(I)405(1 + 1)):POKE A.X :A=A + 1:C=C 
♦X*((I\2)+1):NEXT:C=C AND &FF 
220 IF C=VAL("&"40$(I)+05(1+1)) TH 12440) 
EN 60 

230 SOUND 7,50,10 :SOUND 7.500.10:A (9075] 

=A-8 :PRINT"ERREURI”:PRINT HEX5(A.4 

FOR 1=0 TO 15:PRINT 05(1);: 

IF I/2oI\2 AND 1 <> 15 THEN PRINT" 

*• . 

240 NEXT: PRINT":”: : PR1NT 05(1);: 1= (4903] 
l4l:C=VAL("&*4LEFT5(A5.2))+VAL( 
4RIGHT5(A5.2)):GOTO 70 







Vente 


nds CPC 6128 mono + logiciel 
.ution + disquettes et livres 1500 F. J- 
;s 42.80.53.80. ou 45.43.83.27. 

.rds nombreux jeux et programmes en 
us genres et cherche programme écrit 
- assembleur pour colorier de plu- 
curs couleurs les caractères de mon 
TC 6128. Ecrivez-moi : Nicolas LEVAS- 
TUR, 216 Tour Auvergne, rue Paul 
•inlevé, 76150 MAROMME. 

• ends Amstrad CPC 6128 + Moni cou- 
:ur + Joys. pro 500 + housses - ralîon- 

+ boîte de rangt + nbx jeux et utili- 
:ires + nbx livres 3500 Frs à débattre, 
'cl 34.61.09.38. dept 78. 

.ends Amstrad CPC 464 mono * jeux + 
•russes + joystick, 1000 F. Lecteur disk 
- 100 jeux 1 300 F, l'ensemble 2200 F. Tel 
-S.21.91.04. 

• ends Atari 520 ST TBE ♦ jeux ♦ utili- 
* 2 ircs + livres. MORGAT Jérôme, 16 rue 
ûu Commandant, 13200 ARLES TRIN- 
^UETAILLE. 

Exceptionnel! J'offre aux 5 premiers lec- 
:eurs de Micro-Mag, 1 compilation de 6 
eux arcades d’origine sur CPC disk, 
oindre 30 Frs pour participation trais 
d’envoi en recommandé. Faites vite et 
bonne chance. Mr BLANC Allain 
LASER 3000" 11, Rue l-Philippe 
Rameau, 76000 ROUEN. 


Vends CPC 6128 coul. + meuble + 3 joys 
+ rangement (disks) ♦ lecteur K7 + rac + 
64 jeux (disk, K7) + livres + 3 diskri le 
tout 6000 F à débattre. Tel 42.87.87.96. 
(R.P.) Roosebrouck - HR. 

Vends nombreux logiciels, liste sur de¬ 
mande. Ecrire à Nicolas LEVASEUR, 216 
Tour Auvergne, Rue Painlevé, 76150 
MAROMME. 

Vds CPC 6128 couleur + manuel + softs 
+ joystick + 10 jeux new + revue micro - 
le tout 2 800 Frs. Daniel DAUB1AN Tél 
Bureau 40.65.73.86. Tél domicile 
43.98.27.23. Paris. 

Vends Amstrad CPC 464 couleur bon 
état + interface T.V. + souris AMX + 
joystick + une trentaine de cassettes 
dont Mandragore, Shogun, Gunship, 
Barbarian. Prix 5000 Frs. Tél 92.34.63.39. 
après 18 h 

A saisir, Apple II C + moniteur + souris 
+ imp. emagewriter + Joystick + péri¬ 
phérique + 100 Logiciels parfait état. 7 
500 Frs Frédéric. 43.87.23.30. 

« 

I 

î Votre minitel est triste? Faites-lui plaisir 
en venant sur Amstrad Tél +! Vies, info, 
i sos, trucs, tests, forum, PA, programma¬ 
tion, plein de rubriques 24 h/24, tél. (1) 
34.22.09.22. 

! 

i 

. Vends CPC 6128 couleur, nombreux 
; disks utilitaires, TV turner, table, Boîte 
: de rangement, pistolet, mag + jeux, 
jovsticks, nombreuses revues, disks 


vierges, 5500 F. Tél 64.56.88.11. 

Vends CPC 6128 Schneider couleur + 
couvercle protection + disquettes + nbx 
jeux + 2 "Micro Application" Tél 
43.22.30.98. après 18 h, 2500 F. 

Vends PCXT Tulip + carte Kortex + logi¬ 
ciels compta, gestion de stock, distribu¬ 
tion de la presse. Tél (1) 45.97.31.30. 

Vends Amstrad CPC 6128 + 2 joysticks + 
tuner + 62 jeux + boîte de rangement + 
revues. Prix 3700 Frs, très bon état.Tél. 
96.62.14.30. après 17 h 30 à St Brieuc. 

Vends sonds synthés studio : Ml V50 
M3R VFX YS 100, 200 B200 DX7, S, 
DX7IIFD Kl K5 ESQ1 SQ80 DW8000 DS8 
TX817 DX11, 21, 27, 100 CZ JUNO 1,2. 
D50, D20, DIO, D5, D110 , MATRIX... 
400 Disks W30. S550. S330. S50. Tél (16) 
61.55.17.11. 


Divers 


Achète moniteur couleur à prise péritel 
ou DIN Atari (sur Paris uniquement). 
Tél sur répondeur (1) 43.72.64.64. 

Recherche correspondant sur CPC K7 et 
disk pour échange jeux. Envoyez liste à 
LANUSSE Frédéric, Caserne Fouque, 
34700 LODEVE. Réponse assurée. 



Coupon-Réponse à renvoyer accompagné de votre chèque de 50 F à : 

MICRO-MAG, service P. A. 

5-7, rue de l’Amiral Courbet 
94160 Saint-Mandé 


1 1 1 

LU 1 1 1 1 1 1 II 1 1 II 

1 1 1 

111 1 JJ 

1 1 1 1 1 1 1 1 1 1 1 1 

_LL_L 

11 JJ 1 1 1 1 1 1 1 1 1 1 1 

1 1 1 

1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 

±_LLl 

_111111 i 1 1 1 1 1 1 1 1 1 

1 1 1 

1 II 1 1 1 1 

1111111111 INI 


1 1 1 1 1 1 1 1 1 1 1 1 1 II 1 

J_LL 

L1HJLL1 
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Lecteurs, 
n’usez 
plus vos 
doigts! 


La logithèque de MICRO 


Une myriade de messages d'erreurs résulte de l'interminable 
saisie d'un listing prometteur? Votre raison vacille? Nous 
avons de quoi apaiser vos tourments... 


M A G 



Dix par dix 
Bancs 1/tr«s 
Venus» 

Dopez votre DMP 
Calcul infernal 
Musique 

Ou estions/réponses 
Pacboy 


Passez à la banque 
Tireur d'élite 
Moto road 
Les 4 saisons 
Exemple OR A AND 
20000 pieux sous les mers 
Zone 1 
Amsaisie 
Vérificateurs V 2 



Dix par dix Mini mailing 

RSX imprimante Bobib 
Bronzage Proot 2 

Flèche Amsa»ie V 2 

La caisse à clous Vérificateurs V 2 
S week End 3D 



Hetico drop Piclos 

Aux voleurs Target baH 

Sprite box Romba 

Classic runner Nmja 

Dé-placer Emgma 

Créateur de tableaux L'omelette infernale 

Formatage de pâtes Good moon 

Calcul adresse écran Dix par dix 

Musc maestro II Amsa»ie V 2 

Zone II Vérificateurs V 2 



PAO 

Histoire (feau 
Simplex 3D 
Tron 90 


Explor 
The boas 
Space thief 
Amsa»ie V 2 


Johnny II Vénficaleurs V 2 


Compilations Micro-Mag 

□ H-S listings CPC n°2 □ CPC 13 



Accessoires 
Compta assistée 
Dégradé 
Willy Niliy 
Créafonte 
Faites vos jeux 
Willy's Brother 
Dessin de surlaces 
Vacances 
Métal Warriors 
Vérificateur V.1.0 



Gestion de course pédestre 
Impression d'étiquettes 
Micro-Mag 
Casse-tête 

Les montagnards sont là 

Finance 

Diam's Racer 

Runner 

Pasmaju 

Cadrage 

Ho m bête 


90 F 


60 F 



Disquettes CPC : prix dégressif 

1 disquette :140 F. 

2 disquettes : 120 F l'ex. soit 240 F. 

3 disquettes : 100 F l'ex. soit 300 F. 

1 4 disquettes : 90 F l’ex. soit 360 F. 

J (+ 90 F pour chaque disquette 
J supplémentaire). 

-n 

1 AUTEURS, I 


□ CPC 1, 2, 3 □ ST 1 à 6 & H-S n°3 

□ CPC 4, 5, 6 & H-S n°3 □ PC 1 à 6 & H-S n°3 

□ CPC 7, 8, 9, 10, 12 


Règlement par : O chèque bancaire, □ chèque postal, Q mandat. 
(+ 5 F de frais de port par envoi) 

Nom :_Prénom :_ 

Adresse :_ 

A retourner à : Laser Presse, service disquettes M. M. 

17, rue de la prévoyance, 94300 VINCENNES. 


Nous attendons vos réalisations! Vous 
programmez et souhaitez faire profiter nos 
lecteurs de vos créations originales. Joignez 
à votre envoi, ce bon dûment rempli. 

Je soussigné :_ 

Adresse :_ 

Certifie sur l'honneur être l'auteur de ce 
programme et autorise MICRO MAG à le 
publier sous formes diverses (revues, sup. 
disquettes, téléchargement). 

Date et signature :_ 

A retourner à : Micro-Mag, 5/7, rue de 
l'Amiral Courbet, 94160 SAINT-MANDE. 

Tous nos listings publiés sont rémunérés. 














OFFRE EXCEPTIONNELLE 



jusqu'à 101 F 

d'ECONOMIE 
+1 superbe 

CADEAU 



2 Avantages 


U 33 % d'ECONOMIE 

12 numéros : 101 F d'économie soit 199 F au lieu 
de 300 P 


'12n œ à2SF 



abonnez-vous. 


1 CADEAU DE BIENVENUE 

Ce boîtier de disquettes utile et luxueux vous 
permet de classer 10 disquettes. 

1 boîte pour 3" ou 3"1/2 (contenance limitée à 7 
disquettes pour format 3") 
ou 1 boîte pour 5"1/4 




D'ABONNEMENT à MICRO MAG 

DECOUPEZ VITE CE BON POUR BENEFICIER DE CETTE OFFRE 

et retournez-le accompagné de votre réglement à : 

LASER PRESSE-OGP 
175, avenue Jean Jaurès 75019 PARIS 
Offre limitée jusqu’au 01/05/90 

Oui, je m'abonne à Vc: Ma: 

Je choisis pour cacea. J 1 boîte pour 3” OU 3” 1/2 (1) □ 1 boîte pour 5” 1/4 (1) {1 ) Cocher la case de votre choix 

NOM 99999999999999999999 M•••• mmm - mm • mm •••••9999999999999999999999999999999 PRENOM . 

ADRESSE 999999999 • •• ««•••••9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 

CODE POSTAL __ LOCALITE.TEL. 

Quel est le type d’ord rateur dont vous disposez : Marque:.Type. 

□ Les 12 procha.TS numéros au prix de 199 Fau lieu de 300 F 

□ Europe : 265 r □ Kr mail : 320 F 

Règlement par □ ctecue bancaire □ chèque postal □ mandat à l'ordre de Laser Presse. 
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Pour tout savoir sur le salon. 
Pour gagner de superbes cadeaux. 
Pour se procurer une entrée privilégiée. 


RFM 



V — 






